inSNTIFICATION 
PPODnCT CODE: AC-E044B-MC 

PRODUCT NAME; CZRLCPO RLCl DRIVF TEST PART 1 
DATE CRE4TE0J ll-0CT-7a 
MAIMTAIMER". DIAGNOSTIC ENCINEERTNG 
arrTHOR: D. DEKNIS 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHi\NCE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT? RV DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RSSPONSieiLITY FOR ANV ERRORS THAT MAV APPEAR IN THIS 
MANUAL. 

THE S0FT1»^ARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDSR A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM 
AND CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT 
NOTICE) ONLY FOP USE IN SUCH SYSTEM, EXCEPT ASMAY OTHERWISE BE 
PROVIDED IN WRITING BY DIGITAL. 

DIGITAL SQUIPMEMT CORPORATION ASSUMES NO RESPON SIPILITY FOR 
THE USE OR RELIABILITY 0^ ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1977, 1978/ DIGITAL EQUIPMENT CORPORATION 



T^BLE OF CONTENTS 



1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

1.2 SYSTEM RSQUIREMSNTS 

1.3 RELATED DOCUMENTS AND STANDARDS 

1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 

1.5 ASSffMPTIONS 

2.0 OPERATING I NSTRUCTIO^JS 

2.1 HOW TO RUN THIS DIAGNOSTIC 

2.1.1 THE SIX STEPS OF EXECUTION 

2.1.2 SAMPLE RUN-THROUGH 

2.2 HQV! TO CREATE A CHAINABLE FILE 

2.3 DETAILS OF COMMAflDS AND SYNTAX 

2.3.1 TABLE OF COMMAND VALIDITY 

2.3.2 COMMAND SYNTAX 

2.4 EXTENDED P-TA8LE DIALOGUE 

2.5 HARDWARE PARAMETERS 

2.6 SOFTWARE PARAMETERS 

3.0 ERROR INFORMATION 

4-0 PERFORMANCE AND PROGRESS REPORTS 

5.0 DEVICE INFORMATION' TABLES 

6.0 TEST SUMMARIES 



Page 3 



1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

1.1.1 STRUCTURE OF PROGRAM 

THIS DIAGNOSTIC OCCUFTES 14. 5K WORDS OF MEMORY AND IS COMPATI'?LE MITH 
BOTH XXDP AND ACT. IT CAN BE RUN STANDALONE UNDER XXDP, AND CAN BE 
CHAINED UNDER XXDP^ ACT AND APT IN ACT MODS (SEE "CREATE CORE IMAGE" 
COMMAND RELO^- FOR DETAILS OF CHAINING PROCEDURE). IT IS A SINGLE 
PROGRAM FROM THE STANDPOINT OF THE DIAGNOSTIC USER. PUT WE HAVE 
INCORPORATED INTO IT A CONTROL MODULE WHICH WILL LATER PF RELEASED 
INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR. 

WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS 200, CONTROL GOES FIRST TO 
THE SUPERVISOR PORTION/ WHICH WILL ASK CERTAIN "HARD COPE" QUESTIONS 
ABOUT THE ENVIRONMENT. THEN IT MILL ENTER COMMAND MODE, INDICATED BY 
A PROMPT CHARACTER (DS B>). AT COMMAND MODE THE OPERATOR MAY ENTER 
ANY OF SEVERAL COMMANDS AS DESCRIBED BELOW. 

THE SUPERVISOR CODING FOLLOWS IMMEDIATELY THE DIAGNOSTIC TEST CODING,, 
BUT THE SUPERVISOR LISTING HAS BEEN SUPPRESSED FOR GENERAL 
DISTRIBUTION. A LIMITED DISTRIBUTION HAS BEEN MADE TO FIELD SERVICE 

F THE SUPERVISOR ASSEMBLY LISTING, AND IT MAY BE CONSULTED IN EVENT 

F A SOFTWARE PROBLEW. 

1.1.2 DIAGNOSTIC INFORMATION 

THIS PROGRAM TESTS AND EXERCISES RLOI DISK DRIVES RLll/RLVll 
CONTROLLERS (4 DRIVES PER CONTROLLER). THE ENTIRE PROGRAM IS RUN ON 
THE FIRST DRIVE BEFORE STARTING ON THE SECOND. THE PROGRAM STARTS BY 
TESTING THE SIMPLEST FUNCTIONS FIRST USING THE LOGIC TESTED IN EARLIER 
TESTS TO TEST MORE COMPLEX FUNCTIONS. 

THIS PROGRAM TESTS THE RLCl INTERFACE AND BASIC DRIVE LOGIC. GET 
STATUS WITH RESET, GET STATUS, SEEK, AND READ HEADER ARE THE ONLY 
COMMANDS EXECUTED IN THE PROGRAM, ONLY SEEKS i<ITH C DIFFERENCE ARE 
USED SO NO HEAD MOVEMENT IS REQUIRED. 

A SIGNIFICANT PORTION OF THE PROGRAM REQUIRES MANUAL INTERVENTION. 
THESE TESTS TEST THE COVER OPEN AND WRITE LOCK STATUS, THE DRIVE MUST 
BE LOADED AND UNLOADED TO TEST ALL THE CONDITIONS OF HEADS OUT, BRUSH 
HOME, AND DRIVE STATES. THE PROGRAM CAN RE RUN IN AUTOMATIC MODE IN 
WHICH CASS ALL TESTS REQUIRING MANUAL INTERVENTION ARE BYPASSED. 

1.2 SYSTEM REQUIREMENTS 
1.2.1 HARDWARE REQUIREMENTS 

PDP-ll/LSI-ll PROCESSOR WITH 16K OR MORE OF MEMORY 
CONSOLE DEVICE (LA 30,LA36,VT50,ETC. ) 
RLll/RLVll CONTROLLER(S) 
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1 - B RLOl DRIVES 

1-8 RLCIK CARTRIDGES WITH BAD SECTOR FILE 
KWllP, KWllL (OPTIOVAL) 
LI NEPR I NTER( OPTIONAL) 

1.2.2 SOFTWARE REQUIREMENTS 

CZRLCRO RLOl DRIVE TEST PART 1 
(FQRMFRLY MO-ll-DZRLC-A) 

1.3 RELATED DOCUMENTS AND STANDARDS 

RLOl USERS MAMUAL (EK-RLOl-UG-PRE) 
XXDP USERS MANUAL 

1.4 DIAGNOSTIC HIEPARCV PREREOUISTTES 

THE RLOl SUBSYSTEM SHOULD HAVE SUCCESSFULLY RUN THF FOLLOWING 
PROGRAMS? 

CVRLAAfi RLVll RLOl DISKLESS TEST (RLVll) 

CZRLABO RLll/RLVll CONTROLLER TEST PART 1 

CZRLBBn RLll/RLVll CONTROLLER TEST PART 2 

1.5 ASSUMPTIONS 

THE HARDWARE OTHER THAN THE RLOl SUBSYSTEM IS ASSUMED TO WORK 
PROPERLY. FALSE ERRORS *^AY 8E REPORTED IF THE PROCESSOR, ETC., 00 NOT 
FUNCTION PROPERLY. 

2.9 OPERATING INSTRUCTIONS 

2.1 HOW TO RUN THIS DIAGNOSTIC 

2.1.1 THE SIX STEPS OF EXECUTION 

THIS DIAGNOSTIC SHOULD RE LOADED AND STARTED USING NORMAL XKDP 
PROCEDURES. THE START COMMAND SHOULD NOT SPECIFY AN ADDRESS, BECAUSE 
THE DIAGNOSTIC HAS THE PROPER TRANS'^EF ADDRESS CODFO INTO IT. 

WHEN THIS DIAGNOSTIC IS STARTED, THE FOLLOWING STEPS WILL OCCUR: 

*** ******* 

* STEP 1 * 
********* * 

A SHORT SERIES 0^ "HARDCORE QUESTIONS" WILL BE ASKEDl 

QUESTION MEANIMG 
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L-CLK <L) N ? IS THERE AN L-CLOCK? 

P-CLK (L) N ? " " " P-CLOCK? 

50 HZ (L) M ? IS THE POWER 5<'^ CYCLES ( AS m ETOOPB)? 

LSI (L) N ? IS MACHI'iE AN LSI? 

LPT (L) N ? IS THERE A LINE PRINTER? 

MEM CK) (D) 16 ? HOW MANY K OF MEMORY ARE THERE? 

THE DEFAULTS (SHOWW AFTER EACH QUESTION) CA^f BE SELECTED RY HITTING 
CARRIAGE RETURN. IT IS POSSIBLE THAT NOT ALL OF THE QUESTIONS WILL 8E 
ASKED: FOR EXAMPLE, IF YOU SAY "YES" TO THE L-CLOCK QUESTION^ THE 
P-CLOCK QUESTION WILL NOT RE ASKEO. 

IF NEITHER P OR L CLOCK ARE ANSWERED YES THE OPERATOR WILL BE ASKED TO 
TYPE TWO CHARACTERS 4 SECONDS APART. 

********** 

* STEP 2 * 
********** 

WHEN YOU HAVE ANSWERED ALL THE HARDCORE QUESTIONS, THE DIAGNOSTIC WILL 
ISSUE THE PROMPT "DS-B>". FROM THIS POINT UNTIL THE TIME WHEN YOU 
RESTART XXDPir YOU WILL RE TALKING TO THE DIAGNOSTIC, NOT XYDP. WE 
WILL REFER TO THE PRESENCE OF THIS PROMPT AS BEING IN DIAGNOSTIC 
COMMAND MODS, AS OPPOSED TO XXDP COMMAND MODE. 

AT THIS POINT YOU WILL ENTER A "START" COMMAND. THIS IS NOT THE SAME 
AS THE XXDP "START" COMMAND/ WHICH YOU ALREADY ISSUED IN RESPONSE TO 
THE XXDP DOT PROMPT. THIS "START" COMMAND CAN TAKE A NUMBER OF 
SWITCHES AND FLAGS (ALL OPTIONAL) AND THE DETAILS OF THESE ARE SET 
FORTH IN "2.3 DETAILS OF COMMANDS AND SYNTAX". HDWEYER, IN ORDER TO 
USE THE PROGRAM, ALL YOU NEED TO SAY IS SOMETHING LIKE THTSi 

STA/PASS :l/FLftGS:HQE 

THINGS TO NOTE HERE? 

1. ONLY THE FIRST THREF CHARACTERS OF THIS OR ANY COMWAND AT THE 
"DS-B>" LEVEL NEED TO BE TYPED, 

2. THE "PASS" SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE. A 
PASS CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL 
UNITS BEING TESTED (THIS WILL BE EXPLAINED SHORTLY). ONE 
PASS IS SPECIFIED IN THE ABOVE EXAMPLE. 

3. THE "FLAGS" SWITCH HAY SPECIFY ANY OF A NUMBER OF FLAGS, RUT 
THE MAIN USEFUL ONES ARE; 

LOE LOOP ONE ERROR 

HOE HALT ON ERROR 

lER INHIBIT ERROR PRINTOUT 

THE HOE FLAG IS SPECIFIED IN THE ABOVE EXAMPLE (WE'LL SEE WHY 
SHORTLY), 
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*-kit * Kftikltlc it 

* STEP 3 * 
********** 

WHEN YOU HAVE TYPED IN A "START" COMMAND, THE DIAGNOSTIC WILL COME 
BACK WITH THE QOESTION "# UNITS?" TO WHICH YOU SHOULD RESPOND BY 
TYPING IN THE MOMBER OF DEVICES YOU WISH TO TEST. 

A WORD OF MARNING HSREj THE NUMBER OF UNITS DEPENDS ON THE TARGET 
DEVICE OF THE DTAGNOSTIC. FOR EXAMPLE, IF THE DIAGNOSTIC IS DIRECTED 
AT A DISK DRIVE, THEN THE NUMBER OF UNITS WOULD BE THE NUMBER OF 
DRIVES TO BE TESTED, WHEREAS IF THE DIAGNOSTIC WAS DIRECTED AT THE 
DISK CONTROLLER, THEN THE NUMBER OF UNITS WOULD RE THE NUMBER OF 
CONTROLLERS. THE TARGET DEVICE OF A DIAGNOSTIC CAN ALWAYS BE 
DETERMINED BY INSPECTING THE "HEADER" STATEMENT NEAR THE BEGINNING OF 
THE SOURCE CODS. ONE OF THE OPERANDS OF THIS "HEADER" STATEMENT 
SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC. 



■ 



) 



Page 7 



********** 

* STEP 4 * 
********** 

WHE^ you HAVE TVPED IW THE MUMBRR OF UNITS TO BE TESTED, THE 
DIAGNOSTIC !*«TLL ASK VOU THE "HARDWARE QUESTIONS". THE ANSWERS TQ 
THESE QUSSTIONS ARE USE^ TO BUILD TABLES IN COPF, CALLED "HARDWARE 
P-TAPLES". ONE HARDWARE P-TABLE WILL BE POILT FOR EACH UNIT TO BE 
TESTED. 

THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE SERIES WILL RE 
POSED N TIMES/ WHERE N IS THE NUMBER OF UNITS. 

THIS REPRESENTS A NEW PHILOSOPHY IN DIAGNOSTIC ENGINEERING. 
DIAGNOSTICS IN THE FUTURE MILL NOT HE WRITTEN TO AOTOSIZE OR ASSUME 
STANDARD ADDRESSES*. INSTEAD/ THEV WILL ASK THE OPERATOR FOP ALL THE 
INFORMATION THEY NEED TO TEST THE DEVICE. 



********** 

* STEP 5 * 
**** ***** * 



AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS (SEC 2.5) FOR ALL 
THE UNITS, YOU WILL BE ASKED "CHANGE SW?" IF YOU WANT TO BE ASKED THE 
SOFTWARE QUESTIONS THAT DETERMINE THE BEHAVIOR OF THIS PROGRAM, TYPE 
»'Y", IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIONS/ TYPE 
«N". IF YOU TYPE "Y" YOU WILL BE ASKED THE SOFTWARE QUESTIONS (SEC 
2.6)/ AND THE ANSWERS WILL RE PUT INTO THE SOFTWARE P-TABLE IN THE 
PROGRAM. THE SERIES OF QUESTIONS WILL BE ASKED JUST ONCE/ REGARDLESS 
OF THE NUMBER OF UNITS TO RE TESTED. 

********** 

* STEP 6 * 
****** **** 

AFTER YOU HAVE ANSWERED THE SOFTWARE QUESTIONS, THE DIAGNOSTIC WILL 
BEGIN TO EXECUTE THE HARDWARE TEST CODE. THERE ARE SEVERAL THINGS 
THAT CAN HAPPEN NEXT, DEPENDING ON WHETHER A HARDWARE ERROR IS 
ENCOUNTERED AND ALSO ON WHAT SWITCH VALUES YOU SELECTED ON THE START 
COMMj^ND. CONSIDER THE P0SST8 IL ITIES 1 

1. IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC WILL SIMPLY 
EXECUTE THE DESIRED NUMBER OF PASSES AND RETURN TO COMMAND 
MODE (PROMPT DS-B>). 
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2. TP kH ERROR IS ENCOUNTERED, THEN ONE OF THREF THINGS HAPPENS, 
DEPENDING QH T^E SETTINGS OF THE HOE AMD LOE FLAGS. 

HOE SET! THE ERROR WILL BE REPORTED ON THE CONSOLE AND 

THE DIAGNOSTIC WILL RETURN TO COMMAND mQDE. 
LOE SET: THE DIAG^3USTIC WILL LOOP ENLSSSLV ON THE BLOCK 

OF CODE THAT DETECTED THE ERROR. 
NEITHER HOE NOR LOE SET: THE ERROR WILL BE REPORTED ON 

THE CONSOLE AND NORMAL EXECUTION WILL RESUME 

AS IF NO ERROR HAD OCCURED. 



2.1.2 SAMPLE RUN-THROUGH 

LET'S SEE mv ALL THIS WORKS IN A REAL SITUATION. RECALL THAT ME 
ENTERED THE COMMAND "ST A/PASS: I /FLAGS: HOE". THIS WOULD A VERY 
TYPICAL WAV TO RUN THE DIAGNOSTIC. IF NO ERRORS ARE ENCOUNTERED, THE 
SINGLE REQUESTSD PASS WILL RE EXECUTED AND T"E PROMPT WILL RE 
REISSUED. 

IF AN ERROR IS ENCOUNTERFD, THE ERROR WILL BE REPORTED AMD THE PROMPT 
WILL BE REISSUED (BECAUSE THE HOE FLAG IS SET). AT THIS POINT THERE 
ARE FOUR DIFFERENT WAYS YOU CAN GST THE PROGRAM GOING AGAJNS: 

1. ISSUE ANOTHER "START" COMMAND (THUS GOING THRU ALL OF STEPS 
2, 3, 4, 5, AND 6 AGAIN) 

2. ISSUE A "RESTART" COMMAND (SAME AS START COMMAND EXCEPT THAT 
THE HARDWARE Q"ESTIONS ARE NOT ASKED) 

3. ISSUE A "CONTI^^JE" COMMAND (EXECUTION WILL RESUME AT THE 
BEGINNING OF THE PARTICULAR HARDWARE TEST (MOST DIAGNOSTICS 
CONSIST OF A NUMBER OF THESE) THAT IT WAS IN WHEN THE ERROR 
HALT OCCURED. NO QUESTIONS ASKED. 

4. ISSUE A "PROCEED" COMMAND: EXECUTION WILL RESUME AT THE 
INSTRUCTION FOLLOWING THE ERROR REPORT (THIS IS A SPECIAL 
COMMAND AND CkV BE ISSUED ONLY AT A HALT OM ERROR). 

THE MOST TYPICAL THING TO DO HERE IS TO ISSUE THE PROCEED, BUT WITH 
DIFFERENT FLAG SETTINGS. PROBABLY YOU WOULD WANT TO SAY 

PRO/FLAGS: IER:LOE5HOE=0 
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THIS WILL DO THE FOLLOWING: 

1. THRN ON T^E lER (IMHIPIT ERROR PRINTOUT) FLAG 

2. TORN ON THE IQK FLAG 

3. TURN OFF THE HOE FLAG 

4. RESUME EXECUTION AT INSTRUCTION AFTER ERROR REPORT 

THE DIAGNOSTIC WILL NOW LOOP ON THE BLOCK OF CODE THAT DETECTED AND 
REPORTED THE ERROR, BUT NO ERROR PRINTOUT WILL OCCOP. THUS VOU CAN 
STUDY THE ERROR OR SCOPE IT OR li^HATEVER. 

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C. THIS i*'ILL TAKE YOU 
OUT OF THE LOOP AW PUT YOU BACK INTO COMMAND MODE. YOU NOW HAVE 
THREE CHOICES: 

1. START 

2. RESTART 

3. CONTINUE 

LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND WANT TO FINISH 
RUNNING THE DIAGNOSTIC. YOU WOULD TYPE 

CON /FLAGS: HOE ; ier=d:loe=o 

THIS WILL RESTORE THE FLAGS TO THEIR ORIGINAL VALUES AND RESU^fE 
EXECUTION AT THE BEGINNING OF THE HARDWARE TEST YOU KERE IN. IF THE 
ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT ON THRU TO THE 
NEXT ERROR OR TO END OF PASS. 

IF AT END OF PASS YOU WANT TO RUM THE DIAGNOSTIC AGAIN, YOU HAVE T»^0 
CHOICES: 

1. START 

2. RESTART 

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER YOU WANTED TO ANSWER THE 
HARDWARE QUESTIONS AGAIM. 
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THE FULL PRINT-OUT FROM THE ABOVR DI4L0GUE MIGHT LOOK LIKE: THIS: 

BV 

IjsiHDM 

ENTERED? 

.R DZRKXX 

pzRKyx D 

L-CLK (L) N ? Y D,0 

50HZ (L) N ? D 

LSI (L) N ? D 

LPT (L) N ? D 

MEM (K) <D) 16 -> 

D S- B > S T A / P A S S : 1 / F L 4 G S : H E D , 

# UNITS (0) ? 2 D,0 

UNIT L D 

CSR (0) ? n,o 

VECTOR (0) ? n,o 

3R LEVEL (0) ? D/0 

DRIVE (0) ? ^ D,0 

UNIT 2 D 

CSR (0) ? D,0 

VECTOR (0) ? D,0 

BR LEVEL (0) ? D,0 

DRIVE (0) ? 1 D,0 

CHANGK SW (L) ? N D^O 

OZRKXX HARD ERR 00004 TST 003 Sim O02 PCJ00413*'' D 

ERR HLT D 

DS-B>PPO/PLAGS! IER:LaS:HOE=0 D, 

****************************** ************ ******* 

AT THIS POINT THE DIAGNOSTIC IS LOOPING ON THE 

ERROR WITHOUT PRINTING ANYTHING, YOU CAN SCOPE 

THE ERROR UNTIL YOU HAVF LOCATED IT, THEN *C OUT 
****************** ******************************* 

*C 

DS-B>C0N/FLAGs:HaE :ter:loe=o d,d 

CHANGE SW (L) ? N D,0 

DZRKXX EOF 1 D 

DS-B>REST ART/PASSM 0,0 

CHANGE SW (L) ? M 0,0 
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2.2 KQW TO CREATE A CHftlNABLE FILE 

THE DIAGNOSTIC 4S RECEIVED FROM RELEASE ENGINEERING CRNNOT BE RUN IN 
CHAIN MODE, THA IS WHY IT REARS THE EXTENSION «BTN" INSTEAD OF "BIC". 
THERE IS A WAV, HOWEVER, TO CREATE A CHAINABLE PROGRA¥ FROM MHAT 
YOU'VE GOT. 

IT CONSISTS OF RUNNING THE PROGRAM WITH THE SPECIAL COMMAND "CCI" 
ISSUED i^HERE YOU MOULD NORMALLY ISSUE A START COMMAND (TO THE PROMPT 
DS-B>. THIS COMMAND CAUSES THE DIAGNOSTIC TO GO THRU ALL THE 
QUESTIONS AND ANSWERS AND THEN TO HALT, JUST WHERE IT WOULD ORDINARILY 
BEGIN EXECUTION OF THE HARDWARE TEST CODE, AT THIS POINT YOU CAN DUMP 
THE PROGRAM AS IT SITS IN CORE TO THE LOAD MEDIUM, WITH THE MEW 
EXTENSION "BIC". 

HERE IS A SAMPLE DIALOGUE TO ACCOMPLISH THIS: 
.R UPD2 

RESTART? XXXXXX 
*CLR 

♦LOAD DIAG.BIN 
XFER:200 COREJO, 60602 
♦START 200 
L-CLK (L) N ? 



DS-B>CCI 

# UNITS (D) ? 4 



CHANGE SW (L) ? N 
PTAB END: 60632 

************************************* 

*AT THIS POINT THE MACHINE HALTS AND* 

♦YOU MUST RESTART AT ADDRESS XXXXXX* 
* ************** ********************** 

♦HICORE 60632 
COREt 0,60632 
*DUMP DKO: OIAG.BIC 

THE RESULT OF DOING THIS IS THAT YOU CAN NOW PUTLD AN XXDP CHAIN FILE 
CONTAINING THE XXDP COMMAND 

.R OIAG.BIC 

AND THE DIAGNOSTIC WILL EXECUTE WITHOUT MANUAL INTERVENTION, USING THE 
ANSWERS THAT YOU GAVE IT WHEN YOU DID THE CCI COMMAND. 
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2,3 DETAILS OF COMMANDS AND SYNTAX 
2.3.1 TABLE OF COMMAND VALIDITY 

THERE ARE FOUR WAYS OF ENTERING DIAGNOSTIC COMMAMD MODE, AND DIFFERENT 
^..r.n,.^^ r.^ ^r,^ AVAILABLE »ITH EACH: 



SUBSETS OF THE DIAG COMMAND SET ARE 

HOW ENTERED 
1. OPERATOR ENTERED 'RUN OIAG" 



2. 



3. 



4. 



DIAGNOSTIC HAS FINISHED ALL 
ITS REQUESTED PASSED 



OPERATOR INTERRUPTED THE 
DIAGNOSTIC 'i^ITH CTRL/C 



AN ERROR WAS ENCOUNTERED 
WITH THE HOE FLAG SET SET 



LEGAL COMMANDS 

START 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

START 

RESTART 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

START 

RESTART 

CONTINUE 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

START 

RESTART 

CONTIWUE 

PROCEED 

PRINT 

DISPLAY 

FLAGS 

ZFf.AGS 



2.3.2 COMMAND SYNTAX 

******************************************** ************^^ 

STA(RT)/TESTS:TEST-L I ST /PASS: PASS-CNT/FLAGSIFL AG-LIST /E0P:E0P-INCR 
******************************************** 

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE SWITCHES 
SPECIFIED. THE MESSAGE "# UNITS?" IS PRINTED. THE START COMMAND MAY 
BE ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE OF THE 
FOLLOii*ING: A) OPERATOR TYPED "RUN DIAGNOSTIC" B) DIAGNOSTIC FINISHED 
EXECUTING C) ERROR MAS ENCOUNTERED WITH HOE FLAG SET D) OPERATOR 
ENTERED CONTROL/C. 
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AFTER THE OPERATOR RESPONDS TO 'H UNITS?", THE HARDi«!APE DIALOGUE IS 
INITIATED. WHEN IT IS COMPLETED, THE QUESTIONS "CHANGE SW?" IS 
ISSUED, AND THE ANSWERS, IF RIVEN, PECOME THE NEW DEFAULTS. THEREFORE 
IT IS NECESSARY TO RELOAD THE PROGRAM IN ORDER TO RETURN TO THE LOAD 
DEFAULTS. 

THE SWITCH ARGUMENTS ARi^ AS FOLLOWS: 

"TEST-LIST" IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OP RANGES OF 
DECIMAL NUMBERS (1-5:Q-10 ETC.) THAT SPECtFY THE TESTS TO BE EXECUTED. 
THE NUMBERS ARE SEPARATED BY COLONS. THE NUMBERS RANGE FROM 1 TQ THE 
LARGEST TEST NUMBER IN THE DIAGNOSTIC. THEY "AY BE SPECIFIED IN ANY 
ORDER. TESTS WILL BE EVECUTED IN MUMBSRICAL ORDER REGARDLESS OF THE 
ORDER OF SPECIFICATION. THE DEFAULT IS TO EXECUTE ALL TESTS. 

"PASS-CNT" IS A DECIMAL NUMBER INDICATING THE DESIRED NUMBER OF 
PASSES. A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC 
(ALL SELECTED TESTS) AGAINST ALL UNITS SUM8ITTED. THE DEFAULT IS 
NON-ENDING EXECUTION.. B "FLAG-LIST" IS A SEQUENCE OF ELEMENTS OF THE 
FORM <FLAG>, <FLAG=l>, OR <FLAG=0>, SEPARATED BY COLONS, WHERE <FLAG> 
HAS ONE OF THE FOLLOViTNG VALUES: 

HOE HALT ON ERROR, CAUSING COMMAND MODE TO BE ENTERED WHEN AN 

ERROR IS ENCOUNTERED 
LOE LOOP ON ERROR, CAUSING THE DIAGNOSTIC TP LOOP CONTINUOUSLY 

WITHIN THE SMALLEST DEFINED BLOCK OF CODT?jG (SEGMENT, 

SUBTEST, OR TEST) CONTAINING THE ERROR 
lER INHIBIT ERROR REPORTING 

IBE INHIBIT BASIC ERROR REPORTS 

IXE INHIBIT EXTENDED ERROR REPORTS 

PRI DIRECT ALL MESSAGES TO A LINE PRINTER 

PNT PRINT NUMBER OF TES BEING EXECUTED 

BOE BELL ON ERROR 

UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL INTERVENTION TESTS 

ISR INHIBIT STATISTICAL REPORTS 

IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC 
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THE FLAGS NAMED OR EQUATED TO 1 ARE SST^ THOSE EQUATED TO ARE 
CLEARED^ A FLAG WOT SPECIFIED IS CLEARED* IF THE FLAGS SWITCH IS NOT 
GIVEN ALL FLAGS ARE CLEARED, 

*^EOP«INCR^« IS A DECIMAL NUMBER INDICATING HOIil OFTEN (IN TSRHS 0'=' 
PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED* THE 
DEFAULT IS AT THE E^D OF EVERY PASS, 

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE SWITCHES 
SPECIFIED, HOWEVER, NEM P-TABLES ARE NOT BUILT, INSTEAD, THE ONES IN 
CORE ARE USED, 

THE QUESTION ''CHANGE SW?«' IS ASKED, AND THE ANSERS IF GIVEN BECOME THE 
NEW DEFAULTS, THE COMMAND MA¥ BE ISSUED I^HEN COMAND MODE HAS BEEN 
ENTERED VIA A) DIAGNOSTIC IS FINISHED B) HALT ON ERROR C) CONTROL/C, 

THE SWITCH ARGUMENTS AR£ AS IN THE START COMMAND EXCEPT? 

1. "UNIT-LIST" IS A SEQUENCE OF LOGICAL UNIT NUMBERS RANGING 
FROM 1 THRU N (N = NUMBER UNITS BEING TESTED) SPECIFYING 
^HICH UNITS ARE TO BE TESTED, THE LOGICAL UNIT NUMBER 
DESIGNATES THE POSITION OF THE P-TABLE IN CORE, ACCORDING TO 
THE ORDER IN WHICH THEY MERE BUILT, THE UNITS SPECIFIED MUST 
NOT HAVE BEEN DROPPED BY THE OPERATOR DROP COMMAND, THE 
UNIT-LIST DEFAULTS TO "ALL THAT HAVE NOT BEEN DROPPED BY 
OPERATOR COMMAND", THE EFFECT OF THE UNIT-LIST LASTS UNTIL 
THE NEXT START (WHERE IT IS AUTOMATICALLY RESET TO "ALL") OR 
THE NEXT RESTART, 

2, ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED, 



ifklfkificicitif'kic ★ * He it ir ic * it ic 

CON(TINUE)/PASSl<PASS-CMT/FLAGSt<FLAG-LIST> 
^ ****** ^ ******** ***** * 

COMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT ON ERROR OR A 
CONTROL/C, THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OF THE 
TEST THAT ^AS BEING EXECUTED WHEN THE HALT OR CONTROL/C TOOK PLACE, 
SOFTWARE DIALOGUE MAY OPTIONALLY BE REEXECUTED, HARDWARE PARAMETERS 
MAY NOT BE CHANGED, 

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT: 

1, DEFALT FOR PASS-CNT IS THE UNSATISFIED PASS-CNT FROM THE 
PREVIOUS START OR RESTART 

2, UNSPECIFIED FLAG SETTINGS ARE UNCHANGED 
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****************** ********* 

PRO(CEED)/FLAGS:<FLAG-LIST> 
*************************** 

COMMAND MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERPOR. THE EFFECT 
OF THE COMMAND IS TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE 
ERROR CALL. NEITHER HARDWARE NOR SOFTWARE PARAMETERS HAY BE ALTERED, 

THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPTl 

1. UNSPECIFIED FLAG SETTINGS APE UNCHANGED 

************************************************************* 

cci/TE ST: TEST-LI ST /p ASS :pass-cnt/fl AGS :flag-list/eop;eop-tncr 

****************** **************************************** *** 

the DIAGNOSTIC EXECUTES THRU ALL OPERATOR DIALOGUE AND HftLTS AT THE 
HARDWARE TEST CODE. NOW THE OPERATOR CAN DUMP THE COPE IMAGE TO THE 
MEDIUM WITH A BIG EXTENSION. 

THE Big FILE MUST BE HANDLED DIFFERENTLY DEPENDING ON WHETHER IT IS 
RUN MANUALLY OR IN CHAIN MODE. IF RUN MANUALLY IT CAN BE INVOKED 
EITHER WITH A "START" (IN WHICH CASE IT WILL PEHAVE LIKE THE PIN FILE! 
THE PPS-GENERATED ANSWERS TO OPERATOR QUESTIONS WILL BE IGNORED) OP 
WITH A "RESTART" (IN WHICH CASE THE PRE-GENER ATED OPERATOR ANSWERS 
MILL BE USED), 

IF RUN IN CHAIN MODE, A"TOMATIC EXECUTION WILL COMMENCE IMMEDIATELY 
FROM THE XXDP COMMAND »'.R DIAG". THE COMMAND PROMPT "DS-B>" WILL NOT 
BE ISSUED. 

ANY Si^^ITCHES SPECIFIED ON THE CCT COMMAND WILL CARRY OVER WHEN THE PIC 
FILE IS RUN IN CHAIN MODE (EXCEPT THAT UAM IS ALWAYS SET THERE) BUT 
WILL NOT CARRY OVER V^HEN IT IS RUN MANUALLY. 

TO DO A CCI ON A FULL SIZED DIAGNOSTIC (14, 5K WORDS), A MACHINE SIZE 
LARGER THAN 16K IS REQUIRED, THE EXACT SIZE NEEDED DEPENDS ON ¥HICH 
UTILITY IS USED TO EXECUTE THE DIAGNOSTIC AT CCI TIME, 

********************** 

DRO(P)/ UNITS I UN IT-LI ST 
********************** 

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY ARE ADDED BACf 
OR UNTIL A START COMMAND IS GIVEN. A DROP CANNOT BE FOLLOWED BY A 
PROCEED, 

THERE IS ALSO A "DROP" MACRO INTERNAL TO THE DIAGNOSTIC/ WHICH GIVES 
THE FACTLTTY OF AUTO-DROPPING, THE DURATION OF A PROGRAM DROP, 
HOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART, 
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******************* 
ADD/UNITS :(miT-LIST 

THE UNITS SPECIFIED ARE ADDED BkCK (THEY MUST H4VE BERN PREVIOUSLY 
DROPPED BY THE DROP COMMAND) TO THE TEST SEQUENCE. AN ADD CANNOT BE 
FOLLOWED BY A PROCEED. 

******* 

PRl(NT) 
******* 

ALL STATISTICS TABLES ACCUMULATED BY THE DIAGNOSTIC APE PRINTED. THE 
ISR (INHIBIT STATISTICAL REPORTING) FLAC IS CLEARED. 

*************************** 

DIS(PLAY)/UNITS:<UNIT-LTST> 
*************************** 

THE HARDWARE P-TABLES FOR ALL UNITS U«IDER TEST ARE PRINTED OUT IN THE 
FORMAT IN WHICH THEY WERE EMTEREO. ANY UNITS THAT WERE DROPPED BY THE 
OPERATOR "DROP" COMMAND ARE SO DESIGNATED. 

******* 

£**i**2 

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED. 

******** 

ZFL(AGS) 
******** 

ALL FLAGS ARE CLEARED. 



2,4 EXTENDED P-TARLE DIALOGUE 

THE FULL CAPABILITY OF THE HARDWARE DIALOGUE IS REVEALED BY THE 
FOLLOWING DISCUSSION OF »*HAT HAPPENS INTERNALLY. 

AS SOON AS THE QUESTION UNITS?" IS ANSWERED (WITH THE NUMBER 
SAY) SPACE IN CORE IS ALLOCATED FOR N P-TABLES. ALL OF THE P-TABLES 
ARE OF THE SAME FORMAT* AND THERE IS A ONE-TO-ONE CORRESPONDENCE 
BETWEEN THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE P-TAPLE 
FORMAT. 
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ON THE FIRST TRIP THRU THE QUESTIONS, ALL OF THE SLOTS IN ALL OF THE 
P-TABLES ARE FILLED. IF THE OPERATOR TYPES IN LESS THAN N EXPLICIT 
VALUES IN RESPONSE TO A PARTICULAR QUESTION, THESE VALUES ARE PLACED 
IN THE P-TABLES (ONE VSLUE GOING INTO THE PROPER SLOT OF EACH P-TABLS 
BEGINNING WITH THE FIRST P-TA8LE) UNTIL THE STRI^JG OF VALUES IS 
EXHAUSTED. THE LAST VALUE THAT SLOT IN THE REWATNTNG P»TA8LES. 

ON SUBSEQUENT TRIPS THRU THE QUESTIONS, THE SAME PROCESS IS CARRIED 
OUT, EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT 
VALUE IN ANY OF ITS SLOTS NOW ASSUMES THE ROLE THAT TABLE NUMBER ONE 
PLAYED IN THE FIRST TRIP. 

THE SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST ONE QUESTION HAS 
RECEIVED N EXPLICIT VALUES FROM THE OPERATOR. 

IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING VALUES MAY BE 
USED TO INDICATE A REPETITION OF THE LAST NAMED VALUE. 

A STRING OF VALUES MAY HE GIVEN AS A RANGE (6-10 FOR EXAMPLE). IF THE 
VALUES REPRESENT PURE NUMERICAL DATA^ THIS SAMPLE RANGE TRANLATES TO 
THE STRING 6,7,8,9, !€< (AN INCREMENT OF 1), IF THE VALUES ARE 
ADDRESSES, THE SAMPLE RANGE TRANSLATES TO THE STRING 6,8,lU (AN 
INCREMENT OF 2). 

NOM LET US SEE HOW '4E COULD USE THESE CAPABILITIES TO CONSTRUCT A SET 
OF P-TARLSS. ASSUME THAT WS HAVE 64 UNITS, AND THAT THERE ARE THREE 
HARDWARE PARAMETERS FOR EACH (THREE SLOTS IN THE P-TAPLE, THREE 
HARDWARE QUESTIONS IN THE DIALOGUE). LET THE DESIRED VALUE FOR THE 
FIRST PARAMETER BE THE NUMBER 75 FOR ALL 64 TABLES. LET THE DESIRED 
VALUE FOR- THE SECOND PARAMETER BE EQUAL TO THE UNIT NUMBER 
(1,2,3,.. .,64) EXCEPT FOR UNIT 50, WHICH SOULD RECEIVE THE VALUE 49. 
LET THE DESIRED VALUE FOR THE THIRD PARAMETER RE THE NUMBER 76 FOR THE 
FIRST 20 UNITS AMD THE NUMBER 77 FOR THE LAST 44 UNITS. 

THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL! 

# UNITS (D) ? 64 

UNIT 1 

<QUESTION 1> ? 75 
<QUESTION 2> ? 
<QUESTION 3> ? 76 

UNIT 21 

<QUESTION l> ? 

<QU£STION 2> ? 21- 49, ,51-64 

<QUESTION 3> ? 77 
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THE FIRST TIME THE SERIES IS ASKED, SLOT ONE RECEIVES k 75 IM ALL 64 
TABLES. SLOT TWO RECEIVES THE VALUES 1^- 2, 3r . . . , 20 IN TABLES 1 THRU 20 
AND A CONSTANT 20 IN TABLES 21 THRU 64, SLOT THREE RECEIVES A 
CONSTANT 76 IN ALL 64 TABLES. 

THE SECOND TIME THRU THE SERIES, TABLES 21 THRU THE EMD ARE GOINC TO 
BE AFFECTED (NOTE THAT THIS PIECE OF INFORMATIOM IS PRINTED OUT FOR 
THE OPERATOR IN THE FORM "UNIT XX" AT THE BEGINNING OF EACH SERIES). 
QUESTION 1 IS RgSPONDED TO BY A <CR>ir SO SLOT ONE STAYS A CONSTANT 75 
IN TABLES 21 THRU 64, SINCE NO NEW EXLICIT VALUES ARE TYPED IN. SLOT 
TWO GETS THE VALUES 21,22,23, . ..,49 IN TABLES 21 THRU 49, AND GETS A 
49 IN SLOT 50, AND GETS THE VALUES 51,52,53, ... ,64 IN TABLES 51 THRU 
64, SLOT THREE GETS THE VALUE 77 IN TABLES 21 THRU 64, 

THE DIALOGUE IS TERMINATED WHEN THE SOFTWARE RECOGNISES THAT 64 
EXPLICIT VALUES HAVE BEEN GIVEN FOP AT LEAST ON QUESTION (NAMELY 
QUESTION 2). 

2.5 HARDWARE PARAMETERS 



THE FOLLOWING QUESTIONS «ILL BE ASKED ON A START COMMAND. 
LOCATED ~~ " 



THE VALUE 

TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE THAT 
WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE, 



RLll CD Y? 

ANSWER YES(Y) IF YOU HAVE 
RLVll CONTROLLER. 



AN RLll CONTROLLER, NO(N) IF YOU HAVE AN 



BUS ADDRESS <0) 174400? 

ANSWER WITH THE BUS ADDRESS OF THE CONTROLLER. 
VECTOR (0) 330? 

ANSWER WITH THE INTERRUPT VECTOR OF THE CONTROLLER, 
BR LEVEL (0) 5? 

ANSWER Mim THE INTERRUPT PRIORITY OF THE CONTROLLER. 
DRIVE (0) rs? 

ANSWER WITH THE DRIVE(S) CONNECTED TO THE CONTROLLER. 



2.6 SOFTWARE PARA^^ETERS 

THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART, OR 
CONTINUE, THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES. THE 
SOFTWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE WAY IT RUNS. 
THE PARAMETERS CAN BE MODIFIED ON A START, RESTART, OP CONTINUE BY 
ANSWERING (Y)ES TO THE FOLLOWING QUESTION: 



♦ 
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CHANGE S.W. ? 

A YES ANSWER WILL ASK THE FOLLOWING SOFTWARE PARAMETER QHESTIONS,- ^ITH 
THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION M|RK. 
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS TAKEN ON A <CP>« 
CONTROL Z (*Z) WILL DEFAULT ALL REMAINING QUESTIONS AND START THE 
TEST. 

EXECUTE DRIVE SELECT TESTS (N)? 

IF "YES" TESTS 5 AND 6 ARE EXECUTED IN THE FIRST PASS OF THE PROGRAM. 
THESE TESTS REQUIRE MANUAL INTERVENTION TO CFANGE ADDRESS PLUGS AND 
REQUIRE A FULL COMPLEMENT ADDRESS PLUGS (0 - 3). 

EXECUTE HEAD ALIGNMENT SUPPORT (N)? 

IF "YES", TEST H IS EXECUTED IN THE FIRST PASS. 

EXECUTE MANUAL INTERVENTION TESTS (N)? 

IF "YES", TESTS 1, 2, 3, AND 4 ARE EXECUTED TO TEST BASIC INTTERFACE 
OPERATIONS, HEAD LOADING, HEAD UNLOADING, AND ALL STATE CHANGES. 

SPECIFY ERROR LIMIT (DECTWAL) (20)? 

THIS PARAMETER SPECIFIES THE MAXIMUM NUMBER OF ERRORS ALLQ'^ED. THIS 
LIMIT IS ON A PER DRIVE BASIS IN A SINGLE PASS. IF THE ERROR LIMIT IS 
EXCEEDED, THE DRIVE IS DROPPED FROM FURtruR TESTING. 

DROP DRIVE IF NO RESPONSE (N)? 

IF THIS PARAMETER IS SPECIFIED AS YES, THE PROGRAW WILL CHECK EACH 
DRIVE BEFORE TESTING STARTS TO DETERMINE IF IT IS READY OR IF IT WILL 
RESPOND TO A GET STATUS. IF IT IS NOT READY AND WILL NOT RESPOND TO A 
GET STATUS, THE DRIVE IS DROPPED AND A MESSAGE IS PRINTED. 

3.0 ERROR INFORMATION 

ALL ERRORS ARE PRINTED VIA CONSOLE DEVICE. THE ERROR INCLUDES ERROR 
NUMBER, TYPE AND PPOCRAM LOCATION. ERRORS INCLUDE REGISTERS BEFORE 
AND AT ERROR WITH RSLEVENT DATA. 

3.1 ERROR REPORTING 

MOST ERROR REPORTS HAVE THE FOLLOWING FORM&t. 

JIJ PRQG_NAMS. ERR_NUV . TEST NUM . SUBTEST NU" ERR PC 



ROUTINE T«»ACE SEQ (IN SEQ CALLED) 
" ADDRESS) 
ADDRESS) 



( ADDRESS) 
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TEST DESCRIPTION 
OPERATION; 
RE STILT I 

ADDRFSS OF UNIT UNDEP TEST 

PLCS RLDA niBA RLMP CYL HD 

OP TMIT 
OP DOME 

DRIVE STATUS 

WORD NTIW IS' (XXXXXX) SB (YYYYYV) 
TOTAL COMPARE SRRS: (7ZZ) OF (12B) 

THE ONLY EXCEPTION TO THE ABOVE FORMftT IS PURE DATA COMPARE ERRORS 
(NOT DETSCTED BY READ ERROR). thi^n THE FOPMAT DOES ^?DT INCLUDE LINES 
5 TH POUCH 10. ■ ' 

LINE 1 IS THE ERROR HEADER AND IS PROVIDED BY THE SUPERVISOR. THE 
PROGRAM IS IDEMTIFIFO BY NAME WITH THE NUMBER OF TEST AND SURTEST 
PRESENTLY BSI!iIG EXECUTED. 

THE SUBTEST NUMBER IS UNIQUE IN THIS PROGRAM IN THAT IT DOES NOT REFER 
TO A PHYSICAL SUBTEST WITHIN A CIVEN TEST. RATHER IT REFLECTS THE 
NUMBER OF TIMES A SUBTEST HAS BEEN EXECUTED WITHIN A TEST. 
CONSEQUENTLY, ON A TEST THAT TESTS AN INCREMENTAL TYPE OF OPERATION 
(SUCH A INCREMENTAL SEE^S, READ ALL HEADERS FROM BOTH SURFACES, ETC.) 
THE SUBTEST WILL BE DESCRIPTIVE OF WHERE IN THE TEST THE ERROR 
OCCURRED. 

THE ERROR P.C. IS THE PHYSICAL MEMORY LOCATION VHERE THE ERROR REPORT 
WAS INITIATED. SINCE MANY FUNCTIONS ARE SUBPOUTINED, AND ERRORS ARE 
REPORTED FROM SURROUTI !«ES, THE ERROR . P.C. IS NOT SUFFICIENT TO 
IDENTIFY THE LOCATIGM OF THE ERROR CALL AND THE ROUTINE TRACE SEQUENCE 
IS PROVIDED. 

LINE 2 IS THE ROUTI?JE TRACE SEQUENCE. IF THE ERROR CALL IS INITIATED 
FROM WITHIN THE fEST (AS OPPOSED TO WITHIN A ROUTINE)^ THIS PORTION OF 
THE REPORT IS GMITTSD, IF THE CALL IS INITIATED FRO^' A ROUTINE (WHICH 
MAY RE CALLED BY ANOTHER ROUTINE^ WHICH MAY BE CfLLED BY ANOTHER 
ROUTINE* ETC. SEVERAL LEVELS DEEP) THE ROUTINE TRACE SEQUENCE 
PROVIDES A TRAIL TO THE -ACTUAL LOCATION WITHIN THE TEST THAT CALLED 
THE FIRST ROUTINE. THE FIRST ENTRY LISTED IS THE LOCATION k'HERE THE 
FIRST ROUTINE WAS CALLED. 

LINE 3 IS THE TEST DESCRIPTION AND IS ROUGHLY IDENTICAL TO THE NAME OF 
THE TEST BEING PERFORMED, 

LINE 4 IDENTlFlgS TH? ACTUAL HARDWARE FUNCTION THAT IS BEING 
PERFORMED. ADDTt TONAL INFORMATION ON THIS LINE IS DESCRIPTIVE OF 
SPECIFIC USE OF THE FUNCTION. FOP EXAMPLE, THE OPERATION LINE ^iILL 
READ "READ HEADERS FOR 40 HEADERS" WHEN ALL HEADERS ARE BEING READ 
FROM A TRACK. 

LINE 5 IDENTIFIES THE ERROR THAT HAS BEEN DETECTED. THE CONTENT OF 
LINE 5 IDENTIFIES WHAT WAS BENG TESTED (SUCH AS DRIVE READY, 
CONTROLLER ERROR, DRIVE STATE, ETC.), MHAT TT IS AND «HAT IT SHOULD 
RE. LINE MAY BE REPEATED IF MORE THAN ONE TESTED ITE*^ IS FOUND IN 
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ERROR, 

IN ADDITION LINE 5 WILL REPORT ANY HARDWiiRE DETECTED ERRORS SUCH AS 
OPERATION INCOMPLETE, HEADER CRC, ETC. IN THIS CASE THE FIRST LINE 
PRINTED AS RESULT WILL RE DETERMINED BY THE THRE^: ERROR BITS OPI^ 
HNF/DLT, AND HCRC/DCRC. TWE • LI^IE WILL BE DETERMINED *S IN THE 
FOLLOWING TRUTH TABLE! 

HNF/DLT PCRC/HCRC OPI 'MESSAGE 

1 II «DR NOT FND/HDR CRC/OPI ERROR 

Q 11 HDR CRC ERROR 

1 1 HDR NOT FND ERROR 

1 DATA CRC ERROR 

1 DATA LATE ERROR 

LINE 6 IDENTIFIES THE PHYSICAL ADDRESS OF THE UNIT UNDER TEST. THIS 
ADDRESS IS BV UNIBOS ADDRESS OF THE CONTROLLER AND DRIVE NUWeER, 

LINE 7 NAMES THE CONTROLLER REGI STERS ' < AND CYLINDER AND HEAD WHERE 
THESE ARE APPLICABLE IN THE REPORT) TO BE REPORTED. 

LINE a PROVIDES THE CONTENTES OF CONTROLLER REGISTERS WHEN THE 
OPERATION WAS INITIATED. . 

LINE 9 PROVIDES THE CONTENTS OF THE CONTROLLER REGISTERS WHEN THE 
ERROR BEING REPORTED WAS DETECTED. FREQUENTLY THE REGISTER CONTENTS 
OF OP INIT AND dp DONE MILL BE DIFFERENT. OP INIT MAY INDICATE A SEEK 
MAS BEING PERFOR?^ED BUT OP DONE *^AY INDICATE THE ERROR wftS DETECTED BY 
A READ HEADER. THE REASON IS THAT A SEEK WAS EXECUTED AND DID NOT 
PROPERLY POSITION HEADS AND WHEN THE READ HEADER WAS DONE THE HEADS 
WERE ON THE mOnQ CYLINDER. 

LINE 10 IS THE DRIVE STATUS, THIS LINE IS ONLY REPORTED IF THE RLM^ 
REGISTER DOES NOT CONTAIN THE ACTUAL DRIVE STATUS. 

LINE 11 AND LINE 12 ARE REPORTED IF THE ERROR WAS DETECTED AS k 
COMPARE OPERATION, EITHER DATA OR HEADERS. IN ADDITION^ GOOD AND BAD 
DATA IS REPORTED FOR ALL READ ERRORS, 

3.1.1 SPECIFIC OPERATION MESSAGES 

THE OPERATION MESSAGE (LINE 4) IS GENERATED IN A DYNAMIC MANNER BASED 
ON THE SUBSYSTEM FUNCTION BEING EXECUTED AT THE TIME OF THE ERROR AND 
THE STATE OF THE FLAGS IN THE LOCATION TAGGED "OPFLAGS", THE POSSIBLE 
OPERATION MESSAGES ARE GIVEN BELOW, 

SEEK - FROM (CYL NUM) DIFF (CYL DIFF) SGN (0 CR 1) HD (0 OR 1) WHERE 
THE VALUES ARE GIVEN IN OCTAL. THIS MESSAGE IS THE RESULT OF A SEEK 
OPERATION THAT WAS VEPTFIED BY A READ HEADER AND THE HEAD POSITION 
AFTER A SEEK IS IN ERROR. (THE ACTUAL HEAD POSITION IN THIS ERROR 
SITUATION IS GIVEN IN THE RESULT LINE, LINE 5,) 
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RE4D DAT4 » IS A RE4D D5TA nPERATION W9ERF 
DETECTED 



SOME FORM OP ERROR WAS 



IN THE ACTUAL READ OPERATION, THIS ERROR COULD BE HARDWARE DETECTED 
SUCH AS DATA CRC, HEADER CRC, HEADER NOT FOUND, ETC, OR A SOFTWARE 
DETECTED ERROR SUCH AS DRIVE READY RESET AFTER A READ DATA COMPLETED. 

READ DATA WITH DATA COMPARE - IS AN ERROR THAT MAS DETECTED AS BAD 
DATA IN THE BUFFER AFTER A READ DATA OPERATION. WHEN THIS OPERATION 
IS REPORTED IT INDICATES THE ACTUAL READ DATA OPERATION COMPLETED WITH 
MO DETECTED ERRORS BUT THE DATA WAS WRONG. 

READ HEADER - READ HEADER FOR 40 HEADERS - READ HEADER FOP 40 HEADERS 
WITH HEADER COMPARE - HAVE THE SAME GENERAL MEANING AS THE READ DATA 
AND READ DATA WITH DATA COMPARE. MESSAGES HAVING THE OPERATION OF 
READ HEADER OR READ HEADER FOR 40 HEADERS ARB THE RESULT OF ERRORS 
DETECTED IN THE ACTUAL OPERATION WHILE THE READ HEADER FOR 40 HEADERS 
WITH HEADER COMPARE INDICATES NO ERROR IN THE ACTUAL OPERATION BUT THE 
HEADER DATA ITSELF WAS IN ERROR. 

WRITE DATA - RESET -GET STATUS - GET STATUS WITH RESET - ARE ALL 
BASIC OPERATIONS. AS BEFORE/ THE ERROR DETECTION CAN BE EITHER 
HARDWARE OR SOFTWARE. THE RESULT LIKE (LINE 5) WILL DEFINE THE REASON 
FOR THE REPORT. 

LD DRV - UNLD DRV - ARE OPERATION MESSAGES THAT WILL APPEAR IN THE 
REPORT WHEN THE DRIVE LOAD AND UNLOAD SEQUENCE IS BEING TESTED, 

ANOTHER GROUP OF OPERATION QUALIFIERS WILL BE REPORTED FOP OPERATIONS 
THAT FAIL IN SPECIFIC TESTS. THESE TESTS ARB THE idRITE/READ TEST PART 
2/ OVERWRITE TEST, 4ND THE ADJACENT CYLINDER INTERFERENCE TEST. 



OPERATION 



QUALIFIER 



READ DATA isITH DATA COMPARE 
READ DATA 
WRITE DATA 
READ HEADER 



FOL TO CC SEEK 

FOL 255 TO CC SEEK 

FOL WRITE (NO SEEI*") 

ADJ. CYL WRITTEN AFTER FWD SK 

ADJ. CYL WRITTEN AFTER REV SK 

SK FWD, WRT-SK REV, OVERWRT 

SK REV, WRT-SK FWD, OVERWRT 



THE ABOVE OPERATIONS CAN BE REPORTED WITH ANY OF THE 

QUALIFIERS. THE QUALIFIERS IN THESE TESTS ARE AN ATTEMPT TO MAKE THE 
REPORT MORE MEANINGFUL BY PROVIDING INFORMATION ABOUT THE SEQUENCE OF 
OPERATIONS BEING DONE. 

THE QUALIFIERS "FOL TO CC SEEK" AND "FOL 255 TO CC SEEK" INDICATE 
THAT THE SEQUENCE OF OPERATIONS INCLUDED A SEEK OF A GIVEN DIRECTION 
TO THE CYLINDER WHERE THE TEST IS BEING PERFORHED. 
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THE "FOL WRITE (NO SEEK)" QUALIFIER MEANS THAT THE OPERATION WAS DONE 
AFTER A WRITE WITH NO HEAD M0VEWE1T BETWEEN THE WRITE AND READ. 

THE QUALIFIER "ADJ CVL WRITTEN AFTER FWO SK»« AND "ADJ CYL MRITTEN 
AFTER REV SK" WILL RF REPORTED ONLY IN THE ADJACENT CYLINDER 
INTERFERENCE TEST. THESE QUALIFIERS ARE USED WHEN THE ERROR OCCURS OM 
THE CYLINDER UNDER TEST AND DEFINE THE DIRECTION THE HEADS WERE MOVED 
WHEN THE ADJACENT CYLINDER WAS WRITTEN. 

THE QUALIFIERS "SK FWD, WRT-SK REV, OYERWRT" AND "SK REV, WRT-SK FWD, 
OVERWRT" WILL BE REPORTED ONLY IN THE OVERWRITE TEST. THESE 
QUALIFIERS DEFINE THE DIRECTION OF HEAD MOTION BEFORE THE INITIAL 
WRITE AND THE OVERWRITE. 

THE QUALIFIER "ON BAD SEC FILES" WILL BE REPORTED WITH THE WRITE DATA 
COMMAND IF THE PROGRAM ABORTS THAT COMMAND BECAUSE THE WRITE WOULD BE 
ON THE BAD SECTOR FILES. 

3.1.2 SPECIFIC RESULT MESSAGES 



THE RESULT MESSAGE (LINE 5} IS GENERATED DYNAMICALLY BASED ON THE 
EXPECTED RESULT OF THE OPERATION BEING TESTED. SINCE OPERATIONS ARE 
MONITORED DURING EXECUTION THE RESULT MESSAGE NfiY REPORT AN ERROR 
DETECTED DURING THE OPERATION AS WELL AS THE ERRORS SEEN AT THE END OF 
THE OPERATION. ONLY THE FIRST ERROR SEEN IS REPORTED IN ALL CASES. 

THE GENERAL FORMAT FOR THF RESULT LINE IS 

RESULT: (VAR 1) IS (VAP 2) SH (VAR 3) (OPTIONAL QUALIFIER) 

WHERE VARIABLE 1 CAN BE ONE OF THE FOLLOWING? 

CONT ERR (CONTROLLER ERROR) 

DRV ERR (DRIVE ERROR) 

NON-EXSTNT MEM f NON-EXTSTANT MEMORY) 

HDR CRC (HEADER CRC ERROR) 
DATA CRC 

HDR NOT END (HEADER NOT FOUWD) 
DATA LATE 



HDR NOT FND/HDR CRC/OPI 

DRV RDY 

SELECTED HEAD 

VOL CHK 

COVER OPEN 

BRUSH HME 

WRT LCK 

HDS OUT 

DRV SEL ERR 

DRV STATE 



(ALL 3 BITS SET) 
(DRIVE READY) 

(VOLUME CMECK) 

(BRUCH HOME 

: WRITE lock; 

HEADER OUTl 
DRIVE SELECT ERROR) 
;DRIVE STATE) 
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SPIN limDUT 
WRT GAT ERR 
SEHK TINE OUT 
CUR HEAD ERR 
WRT DAT ERR 
OP INCOMPLETE 
HDR/DAT ERR 

HDR NOT FHD/DAT LATE 

C¥L 



(SPINDLE TIMEOUT SPD ERROR) 

(WRITE GATE ERROR) 

fSKTO ERROR) 

(CURRENT TN HEAD ERROR) 

(MRITE DATA ERROR) 

(OPI ERROR) 

(HEADER CRC OR DATA CRC ERROR 

BIT 11 OF CS REGISTER) 
(HEADER NOT FOUND OR DATA LATE 

ERROR BIT 12 OF CS REGISTER) 
(CYLINDER WHEN REPORTING A SEEK ERROR) 



) 



VARIABLE 2 ii^ILL BE A VALUE THAT DEFINES WHAT THE RESULT ACTUALLY IS, 
THIS CAN 9£ A 1 OR C TO INDICATE A SET OF RESULT CONDITIONS, A NUMBER 
TO 7 TO INDICATE THE DRIVE STATE, OR A NUMBER TO 377 (OCTAL) TO 
IDENTIFY A CYLINDER NUMBER, 

VARIABLE 3 DEFINES THAT THE VALUE GIVEN IS VARIABLE 2 SHOULD BE, 

THE OPTIONAL QUALIFIER IS PROVIDED WHEN IT IS USEFUL TO KNOW mEH THE 
ERROR WAS DETECTED IN THE OPERATION BEING PERFORMED, THIS QUALIFIER 
IS USED TO REPORT RESULTS SUCH ASl 

BRUSH nm IS 1 SB IN STATE 2 
HEADS OUT IS SB 1 IN STATS 3 
DRV RDY IS SB 1 IN DATA XFER 



SELECTED HEAD IS 



ORV RDY 
DRV RDY 
DRV ROY 
DRV RDY 
DRV RDY 




THESE RESULTS, WHEN SEEN WITH THE 
EXPLANATORY, 



IN CYCLE UP 
IN STATE 5 
IN SEEK W/O MOTION 
IN lOMS 
IN 500MS 
IN 5SEC0NDS 

OPERATION MESSAGE, WILL BE SELF 



OTHER RESULT MESSAGES THAT CAN BE PART OF AN ERROR REPORT ARE? 

"INTERRUPT TO LATE'' MHICH INDICATES THAT THE OPERATION BEING PERFORMED 
DID NOT 

COMPLETE IN THE EXPECTED AMOUNT OF TIME. THIS RESULT CAN RE CAUSED BY 
THE DRIVE LOOSING READY BEFORE STARTING A READ HEADER AND THEREFORE 
NOT COMPLETING THE READ HEADER IN IMS. 



*«FAIL TO RELOAD HDS AFTER ERR CLEARS IS REPORTED WHEN AN ERROR 
HEADS — 



RELOAD. 



TO UNLOAD AND AFTER THE ERROR 



_ CAUSES 

IS CLEARED THE HEADS DO NOT 



"UNKN DRV STATE-NO RDY, NO ERR, HDS OUT" IS REPORTED WHEN THE 
CANNOT DETERMINE THE DRIVE STATE OR STATUS, 



PROGRAM 



"WRITS ABORTED" IS REPORTED WHEN THE PROGRAM ABORTS A 
THE BAD SECTOR FILES, 



WRITE TO PROTECT 
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"COULD NOT RETRIEVE DRIVE STATOS" IS REPORTED IF THE GET STATUS 
COMMAND DOSS NOT COMPLETE SUCCESSFULLY WHEN THE STATUS IS REQUIRED TO 
REPORT AN ERROR, 

"DPI SET-NO DRIVE RESPONSE" IS REPORTED AS THE RESULT MWEM THE GET 
STATUS COMMAND IS TIMED CUT (OPI SETS) WHEN THAT COMMAND IS BEING USED 
IN THE EARLY TESTS TO CHECK THE DRIVE INTERFACE. 

"NO INTERRUPT ON CMND COMPLETE" IS REPORTED WHEN THE COMMAMD 
SUCCESSFULLY COMPLETES BUT THE CONTROLLER HAS NOT GENERATED AN 
INTERRUPT, 

'»ERR DID NOT CLEAR" IS REPORTED WHEN THE RESET COMMAND DOES NOT CLEAR 
THE CONTROLLER ERRORS, THIS IS A CONTROLER RELATED PRORLEM BUT IS 
REPORTED IF SEEN IN THE DRIVE TEST PROGRAMS. 

"DRV SRR IS NOT CLEARED'' IS REPORTED WHEN THE GET STATUS W/RESET 
COMMAND DOES NOT CLEAR ALL DRIVE ERRORS. 

'•UNEXPECTED ERR" IS REPORTED WHEN THE CONTROLLER SENSES AN ERROR BUT 
NO ERROR BITS ARE SET. 

"BAD SEC FILE FMT ERR" IS REPORTED IF THE CONTENTS OF THE FILES DO NO 
CORRESPOND TO THE EXPECTED FORMAT, (REFER TO DEC STANDARD 144 FOR 
FORMAT SPECIFICS,) 

3.1.3 OTHER MESSAGES 

OTHER INFORMATION IS REPORTED UNDER VARIOUS CIRCUMSTANCES. ARE: 

"BAD SEC FILES NOT STRD. ALL SEC ASSUMED GOOD." THIS mrsSAGE IS 
PRINTED mEfS A PARTICULAR TEST REQUIRES THE PAD SECTOR FILES BUT THEY 
HAVE NOT BEEN STORED. THIS SITUATION WILL OCCUR IF THIS TEST IS 
STARTED OUT OF THE NORMAL PROGRAM SEQUENCE OR IF THE BAD SECTOR FILES 
COULD NOT BE READ. 

"ERROR LIMIT EXCEEDED-UNIT DROPPED" IS REPORTED (WITH THE UNIT NUMBER) 
WHEN MORE THAN THE SPECIFIED NUMBER OF ERRORS (DEFAULT 20) HAVE 
0CCUR5D IN ANY SINGLE PASS, 



ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION WITH 
kGjHOE. - 



3»2 ERROR HALTS 

ERROR HALTS ARE _ 
/FLAG J HOE. THERE ARE NO OTHER HALTS. 

4.0 PERFORMANCE AND PROGRESS REPORTS 

4.1 PERFORMANCE REPORTS 



THIS PROGRAM WILL NOT GIVE ANY PERFORM^NCS REPORTS. 
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4.2 PROGRESS REPORTS 

THIS PROGRAM WILL NOT GIVE \m PROGRESS REPORTS. 
5,0 DEVICE INFORMATION TABLSS 

THE RLll/RLVll CONTROLLER H4S THE FOLLQWIMG F0UR(4> REGISTERS FOR 
CONTROL OF THE SUBSVSTEM. 

RLCS - CONTROL AMD STATUS REGISTER (XXXXXO) 

COMPOSITE ERROR 
DRIVE ERROR 

NON EXISTANT WEMORY ERROR 
HEADER NOT FOJJND (MITH BIT IC SET) 
DATA LATE (WITH BIT 19 CLEAR) 
HEADER CRC (WITH BIT 10 SET) 
DATA CPC (WITH BIT 10 CLEAR) 
OPERATION INCOMPLETE 



BIT 


15 - 


BIT 


14 - 


PIT 


13 - 


BIT 


12 - 


BIT 


11 - 


BIT 


IQ - 


BIT 


9/8 


BIT 


7 - 


BIT 


6 - 


BIT 


5 - 


BIT 


4 - 


BIT 


3-1 - 



- NOP (PDP-11) MAINT (LSI-11) 

1 - WRITE CHECK 

2 - GET DRIVE STATUS 

3 - SEEff 

4 - READ HEADER 

5 - WRITE DATA 

6 - READ DATA 

7 - READ WITHOUT HEADER COMPARE 
BIT - DRIVE READY 

RLBA - BUS ADDRESS REGISTER (XXXXX2) 

BITS 15-1 BUS ADDRESS OF DATA TRANSFER 
BIT SHOULD BE 

RLDA - DISK ADDRESS REGISTER (XXXXX4) 
FOR READ/WRITE FUNCTIONS 
BIT 15 - **UST BE ZSPO(O) 



BIT 14-7 - CYLINDER ADDRESS FOR TRANSFER 

BIT 6 - SURFACE FOR TRANSFER 

BIT 5-0 - SECTOR FOR TRANSFER (0-47) 

FOR SEEK FUNCTION 

BIT 15 - MUST BS ZERO(0) 

HIT 14-7 - DIFFERENCE TO NEW CYLINDER 

BIT 6-5 - HOST BE ZSRO(O) 

BIT 4 - SURFACE 

BIT 3 - MUST BE ZERO 

BIT 2 - SEEK DTRECTION( 1 - IN / - OUT ) 
BIT 1 - MUST BE ZERO 
BIT - MUST BE ONE(l) 

FOR GET STATUS FUNCTION 

BIT. 15-4 - IGNORED SHOULD BE ZERO 
BIT 3 - DRIVE RESET 
BIT 2 - MUST BE ZERO 
BIT 1 MUST BE ONE 
BIT - MUST BE ONE 

RLMP - MULTIPURPOSE REGISTER 
FOR READ/WRITE FUNCTION 

BIT 15 - - WORD COUNT<TWO'S COMPLIMENT) 
FOR READ HEADER FUNCTION 

BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ) 

- ZERO WORD (SECOND READ) 

- HEADER CRC (THIRD READ) 

FOR GET STATUS FUNCTION 

HAS DRIVE STATUS 

BIT 15 - WRITE DATA ERROR 

BIT 14 - CURRENT HEAD ERROR(CflE) 

BIT 13 - WRITE LOCK STATUS(WL) 

BIT 12 - SEEK TIME OUT(SKTO) 

BIT 11 - SPIN ERROR(SPE) 

BIT 10 - WRITE GATE ERROR(WGE) 

BIT 9 - VOLUME CHECK(VC) 

BIT B - DRIVE SELECT ERRaR{DSE) 

BIT 7 - RESERVED (0) 

BIT 6 - SURFACE 
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BIT 5 - CnVER OPE^' 
BIT 4 - HEADS "O^E 
BIT 3 - R RUSHES HOME 
BIT 2-0 -STATE PITS 

- LOAD STATE 

1 - SPIM OP 

2 - BRUSH CVCLE 

3 - LOAD HEADS 

4 - SEEK - TRACr COUMTINf^ 

5 - SEE'f - LIMEAR MODE 

6 - UNLOAD HEADS 

7 - SPIN DO^^N 

6,0 TEST SUMMARIES 

TEST 1 BASIC INTERFACE TEST (PART 1) 

LOAD IN DRIVE NHVRER. HQ GET STATUS WITf^ RESET. IF DPI SETS: 
DRIVE INTERFACE IS DEAD 

DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING 
MARKER OETECTION FAILED 

DRIVE IS NOT SELECTING OR AC LOW IS SET 
SYSTEM OR STATUS CLOCKS NOT OPERATIONAL 
GET STATUS DETECTION '^ATLED. 

IF INTERRUPT WITH NO OPI, CHECf STATUS RECEIVED. COVER OPE^I 
AND BRUSH HOME SHOULD BE SET. IF NOT: 

BAD STATUS DATA LINE 

BAD COVER SWITCH OR LOGIC 

DRIVE COMMAMD SHIFT REGISTER 

RAD BRUSH HO^E SWITCH OR LOGIC 

CHECK WRITE LOCK STATUS BIT SET. IF NOT: 
BAD SWITCW OR WRITE LOCK LOGIC 



DRIVE COMMAND SHIFT REGISTER 

CHECK STATE FOP 0. IF NOT: 
BAD STATE ROM 

DRIVE COMMAND SHIFT REGISTER 

CHECK VOLUME CHECK RESET. IF NOT: 
RAD RESET DETECTION 
BAD VOLUME CHECK LOGIC 
DRIVE COMMAND SHIFT REGISTER 

CHECK DRIVE ERROR RESET. IF NOT: 

BAD DRIVE ERROR INTERFACE 

SOME OTMER ERROR STUCK ON. REPORT WHICH EPPOP, 



J 
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NOTE? THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2 
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED,- 
AND IS PUN IN FIRST PASS ONLY. 

TEST 2 BASIC INTERFACE TEST (PART 2) 

REQUEST OPERATOR TO CLOSE COVER AND RESET WRITE LOCK. 

DO GET STATUS LOOP CHECKING IF COVER OPEN OR WRITE LOCK 
RESETS. isAIT 15 SECONDS FOR BOTH TO CHANGE. IF NO CHANGE^ 
ASK OPERATOR TO TYPE CR IF PROCEDURE WAS FOLLOWED. 

IF ONE CHANGED PUT NOT THE OTHER, REPORT WHICH FAILURE*. 

WRITE LOCK SWITCH OR LOGIC 
(OR) COVER OPEN SWITCH OR LOGIC 
DRIVE COMMAND SHIFT REGISTER 

IF NEITHER CHANCED, REPORT BOTH FAILURES. 

NOTE! THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2 
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED, 
AWD IS RUN IN FIRST PASS ONLY. 

TEST 3 HEi^D LOADING TEST 

REQUEST OPERATOR TO PRESS LOAD SWITCH. 

DO GET STATUS LOOP CHECKING FOR STATE TO GO TO 1. WAIT 30 
SECONDS FOR CHANGE. IF NO CHANGE, ASK OPERATOR TO CONFIRM 
ACTION BY TYPING CR. 

IF LOAD WAS PRESSED? 

BAD STUTE ROM 



BAD LOAD SWITCH OR LOGIC 

CHECK THAT STATE 1 REMAINS FOR LESS THAN 3€' SECONDS. IF NOT! 

SPINDLE NOT TURNING OR TO SLOW (AC SERVO) 

SECTOR PULSE DETECTION OR LOGIC BAD 

BAD CLOCK SHIFT REGISTER IN SPEED CONTROL 

BAD DISK ON SPEED LOGIC 

BAD STATE ROM 

AND CHECK IF SPINUP TIMEOUT ERROR SET. IF NOT : 

BAD STATE ROM 

BAD TIMEOUT DETECTION LOGIC 
CHECK THAT STATE GOES TO 2. IF NOT? 
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B4D STATE ROM 

CHECK THAT BRUSH HOME IS RESET 5 SECONDS OR LESS AFTER STATE 
IS 2. IF NOT; 

8AD BRUSH HOME SWITCH OR LOGIC 
BAD BRUSH MOTOR (AC SERVO) 

WAIT 30 SECONDS FOR BRUSH HOME TO SET. IF NOT; 

BAD AC SSRVQ 

BAD SWITCH OR LATCH 

CHECK THAT STATE HAS CHANGED TO 3, IF NOT: 

BAD STATE ROM 
AFTER STATE IS 3, CHECK HEADS OUT IS SET. IF NOT: 

BAD SWITCH 

8AD SEEK CONTROL ROM 
BAD VELOCITY POM 
BAD DC SERVO 

CHECK VOLUME CHECK IS SET. IF NOT: 

RAD VOLUME CHECK LOGIC 
CHECK IF DRIVE ERROR IS SET. IF NOT: 

BAD DRIVE ERROR LOGIC OR INTERFACE 
MATT 300 MS FOR STATE TO CHANGE TO 4. IF IT DOESN'T CHANGE: 



STATE ROM BAD 
SEEK ROW 
VEL ROM 

GUARD BAND DETECTION 
WATT 15 MS FOR STATE TO CHANGE TO 5. 

8 MS AFTER STATE GOES TO 5, DRIVE READY SHOULD SET. IF NOT: 

INTEGRATOR OR NOLL DETECTION FAILURE 
READY ONE SHOT BAD 

ENABLE TIMEOUT H NOT SETTING OR COUNT LOGIC BAD 

NOTE: THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2 
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED, 
AND IS RUN IN FIRST PASS ONLY. 
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TEST 4 HEAD UNLOADING TEST 

CHECK DRIVE IS READY, IF NOT REPORT AMD ASK OPERATOR TO MAKE 
DRIVE READY. 

REQUEST OPERATOR TO UNLOAD DRIVE, 

LOOP ON GET STATUS WAITING FOR STATE TO CHANCE TO ^. IF NO 
CHANGE! 

BAD STATE ROM 
BAD SWITCW 

WaiT 300 MS FOR STATE TO CHANGE TO 7, IF NO CHANGE: 
BAD STATE ROM 

AFTER STATE IS 7, WAIT 30 SEC FOR STATE TO CHANGE TO STATE 0. 
IF NO CHANGS! 

NO BRAKING 
BAD AC SERVO 

REQUEST OPERATOR TO LOAD DRIVE. WAIT UNTIL DRIVE BECOMES 
READY. 

NOTE! THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2 
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED, 
AND IS RUN IN FIRST PASS ONLY, 

TEST 5 DRIVE SELECT TEST 

INSTRUCT THE OPERATOR TO REMOVE DRIVE ADDRESS PLUGS FROM ALL 
DRIVES EXCEPT THE DRIVE UNDER TEST, ASK THAT CARRIAGE RETURN 



BE TYPED WHEN DONE, 

DO GET STATUS TO ADDRESS OF DRIVE UNDER TEST. CHECK THAT NO 
ERRORS ARE REPORTED. DO GET STATUS TO ALL OTHER ADDRESSES AND 
CHECK THAT OP I SETS FOR ALL OTHER ADDRESSES, 

DO GET STATUS TO ADDRESS OF NEXT SEQUENTIAL ADDRESS. CHECK 
THAT NO ERRORS ARE REPORTED, DQ GET STATUS TO ALL OTHER 
ADDRRESSKS AND CHECK THAT OPI SETS. 

REPEAT FOP ALL DRIVE ADDRESSES (0,1,2,3 - IS SEQUENTIAL 
AFTER 3). 

NOTE! THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2 
IS SELECTED, DRIVE SELECT TESTING IS REQUESTED, AND IS 
RUN IN FIRST PASS ONLY. 
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TEST 6 DRIVE SELECT ERRtDP TEST 

REQUEST OPERATOR INSERT inENTICAL ADDRESS PLUGS IN TWO DRIVES 
(MUST 8S TDENTICftL TO NUMBER SPECIFIED EARLIER). REQUEST 
OPERATOR TYPE CARRIACE RETURN WHEN READY. 

PROCEDURE MILL BE TO GET STATUS AND CHECK FOR DRIVE SELECT 
ERROR. THEM RESET THAT DRIVE AND VERIFY THAT DRIVE SELECT 
ERROR IS NOT REPORTED AGAIN. WAIT 1 SECOND, THEN CHANGE DRIVE 
SELECT TO A DIFFERENT NUMBER AND BACK AGAIN. DRIVE SELECT 
ERROR SHOULD SET AGAIN. 



4.2 



TEST 7 



OPERATOR SHOULD SEE THE FAULT LIGHT ON 
INDICATOR IS NOT SEEN ON A DRIVE? 



NOTE : 



ON BOTH DRIVES. IF 

DRIVE SELECT ERROR DETECTION IS BAD IN THAT DRIVE. 

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2 
IS SELECTED, DRIVE SELECT TESTING IS REQUESTED, AND IS 
RUN IN FIRST PASS ONLY, 



STANDARD TESTS 

IF THE PROGRAM OPERATION MODE 1 IS SELECTED, THIS WILL BE THE 

FIRST TEST EXECUTED. THE DRIVE(S) TO BE TESTED MUST BE 

POWERED UP, HEAPS LOADED, AND WRITE LOCK RESET. 

INITIAL STftTE TEST 

DO GET STATUS, WAIT FOR INTERRUPT. 
IF OPI OCCURS: 

DRIVE I!?TER'?ACE IS DEAD 



DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING 
DRIVE IS NOT SELECTING OR AC LOW IS SET 
SYSTEM OR STATUS CLOCKS NOT OPERATIONAL 
GET STATUS DETECTION FAILED. 

IF INTERRUPT OCCURS WITHOUT OPI, CHECK DRIVE READY. READY SET 
INDICATES HEADS ARE LOADED AND ARE TRACKING (POSITION 
MORKING). 

IF MANUAL INTERVENTION TESTS WERE RUN, CHECK THAT HEAD IS 
SELECTED. IF NOT; 

DRIVE CYCLE UP DID NOT SELECT HEAD 

IF DRIVE READY IS SET, CHECK STATUS MESSAGE RECEIVED. HEADS 
OUT AND RRUSH HOME MUST BE SET. IF NOT: 



) 
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TEST 8 



DRI\rE COMMAND SHIFT REGISTER NOT LOADIKG/SH JFTIMG 
HEADS OUT OR BRUSH HOME SWITCH OR ASSOCIATED 

CIRCUITRY BAD 
STATUS DATA BAD 

IF MANUAL INTERVENTION TESTS WERE RUN AMD THIS IS THE FIRST 
PASS CHECK- THAT VOLUME CHECK AND DRIVE ERROR ARE SET. 

CHECK ALL ERROR BITS ARE 0. 

CHECK STATE IS 5. IF NOTi 

DRIVE CONMANO SHIFT REGISTER BAD 

INITIAL RESET STATE TEST 

DO GET STATUS HEAD SELECT = 0, WAIT FOR INTERRUPT. 

DO GET STATUS WITH RESET, WAIT FOR INTERRUPT. BOTH DRIVE 
ERROR AND VOLUME CHECK SHOULD NOW BE RESET. IF NOT: 

RESET DETECTION, RESET ERROR, OP VOLUME CHECK FLOP BAD 
DRIVE COMMAND SHI^T REGISTER BAD 

HEAD SELECTED BIT SHOULD STILL BE ZERO. IF NOTt 

DRIVE COMMAND SHIFT REGISTER BAD 

HEAD SELECT SHIFT REGISTER NOT LOADING 

TEST 9 DRIVE READY TEST 

DO SEEK WITH DIFFERENCE, SIGN 0, HEAD O. 
INTERRUPT. GET STATUS. CHECK STATE IS 5, IF NOT; 



WAIT FOR 



DIFFERENCE COUNTER PICKING UP BITS 

COUNTER CIRCUITRY IS NOT INDICATING DIFC-ERENCE 

CHECK DRIVE READY IS RESET. IF NOT: 

ENABLE TIMEOUT OR READY LATCH/ONE SHOT BAD 

WAIT APPROX 8 MS FOR READY TO SET, IF IT TAKES LONGER OR 
DOESN'T SET AT ALL: 

HEADS MAY HAVE MOVED (INTEGRATOR OR NULL DETECTION) 
READY ONE SHOT FAILED 

CHECK DRIVE ERROR DID NOT SET. 1^ IT SET, DO GET STATUS AND 
REPORT WHICH ERROR. 

VERIFY HEAD SELECT IS ZERO. 
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TEST 10 SEEK SIGN SWITCH TEST 



00 SEEK WITH DIFFERENCE ^, SIGN 1, HEAD WAIT FOR 

INTERRUPT. GET STATUS AND CHECK STATE IS 5, IF NOTi 

COUNT ROM 

DIFFERENCE COUNTER PICKING UP BITS 

COUNTER CIRCUITRY IS MOT INDICATING DIFFERENCE 

VERIFY DRIVE IS NOT READY 

WAIT APPROX 8 MS FOR READY TO SET. IF IT TAKES LONGER OR 
DOESN'T SET AT ALL! 

HEADS ARE MOVING (INTEGRATOR OR NULL DETECTION) 
READY ONE SHOT FAILED 
COUNT ROM 

VERIFY DRIVE ERROR DID NOT SET 

VERIFY HEAD SELECT IS ZERO, 

DO SEEK WITH DIFFERENCE, OPPOSITE SIGN, HEAD 0, REPEAT 
ABOVE TESTS. 

TEST 11 HEAD ALIGN^<ENT SUPPORT ROUTINE 

THIS TEST IS EXECUTED «HFN THE PROGRAM IS STARTED AT ADDRESS 
204, HEAD ALIGNMENT SUPPORT IS REQUESTED, AND IK THE FIRST 
PASS ONLY, IT IS BYPASSED IF THE PROGRAM IS STARTED AT ANY 
OTHER ADDRESS AND IN THE SECOND AND SUBSEQUENT PASSES- 

THIS TEST SELECTS THE DRIVE UNDER TEST AND LOOPS ON A GET 



STATUS WITH RESET, THE WITE LOCK BIT IS HONITORED AND WHEN 
'*?RITE LOCK IS RESET HEAD IS SELECTED AND «HEM WRITE LOCK IS 
SET HEAD 1 IS SELECTED. THIS WILL PERNIT THE HEADS TO BE 
ALIGNED IN KEEPING WITH THE PRESENT HEAD ALIGNMENT PROCEDURE 
WITHOUT RETURNING TO THE CONSOLE. 

TYPING A CARRIAGE RETURN ON THE CONSOLE WILL TERMINATE THIS 
TEST ON THE DRIVE UNDER TEST. BEFORE TERNINATING, THE TEST 
irfILL CHECK THAT SRITE LOCK IS RESET. IF NOT, THE OPERATOR 
WILL BE REQUESTED TO RESET WRITE LOCK. 

TEST 12 HEAD SWITCHING TEST 

DO SEEK WITH DIFFERENCE, SIGN 0, HEAD 1, ^kU FOR 
INTERRUPT. GET STATUS AND CHECK STATE IS 5. IF NOTJ 

DIFFERENCE COUNTER IS PICKING UP BITS 
ASSOCIATED CIRCUITRY IS BAD 
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VERIFY DRIVE READY RESET. IF NOT: 

ENABLE TIMEOUT OR READY LATCH/ONE SHOT BAD 

WAIT APPROX 8 MS FOR READY TO SET. IF IT TAKES LONGER OR 
DOESN'T SET AT ALLJ 

HEADS APE MOVING (INTEGRATOR OR NULL DETECTIOM) 

READY ONE SHOT FAILED 

DRIVE CANNOT TRACK WITH THIS HEAD 

VERIFY DRIVE ERROR DID NOT SET. 

DO GET STATrJS, CHECK HEAD SELECT IS CORRECT. IF NOT; 

HEAD SELECT REGISTER BAD 

DRIVE COHMAMD SHIFT REGISTER PAD 

DO SEEK WITH DIFFERENCE, SIGN 0, HEAD 0. REPEAT ABOVE 
TESTS, 

TEST 13 READ HEADER TEST (PART 1) 

DO SEEK MITH DIFFERENCE 0, HEAD C, SIGN G. WAIT FOP INTERRUPT 
AND «AIT FOR DRIVE READY. 

00 READ HEADER, WAIT FOR INTERRUPT. 

CHECK IF HEADER CRC ERROR SET. IF SET: 

READ/WRITE 80ARD BAD 
READ DATA LIME BAD 



CHECK IF BIT 6 OF WORD 1 IS SAME AS HEAD SELECT BIT IN STATUS. 
IF MOTS 

HEADS ARE SWITCHED (CABLE) 
HEAD SELECT LOGIC 

IF MANUAL INTERVENTION TESTS WERE RUN AND HEAD ALIGNMENT TESTS 
HERE NOT RUN, CHECK THAT HEADER MORD INDICATES HEADS ARE 
POSITIONED OVER CYLINDER 0. STORE HEADER MORD 1. 

REPEAT TESTS USING HEAD 1. 

CHECK THAT CYLINDER PORTION OF STORED HEADER WORD 1 IS THE 
SAME AS HEADER WORD 1 OF THIS HEADER. IF NOT? 

HEADS APE MISALIGNED 

TEST 14 READ HEADER TEST (PART 2) 
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DO SEEK WITH DIFFERENCE 0, SIGN C, HEAP 0. MMT FOR 
IMTERRUPT. WAIT FOR READY. 

DO 40 CONSECUTIVE READ HEADER, STORE 3 HEADER WORDS AFTER EACH 
READ. 

CHECK ALL HEADERS FOR SFQtJENCE AND CONTENT (WORD 2 ALL ZERO/ 
BIT 15 WORD 1 AND 3 IS Q, HS BIT WORD 1 IS 0). IF NOT: 

BAD READ/WRITE BOARD 
BAD PACK 

DO SEEK WITH DIFFERENCE 0, SIGN Q, HEAD 1. REPEAT ABOVE TEST 
FOR HEAD 1. % 
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00700C ,a2000 



IS 



IvEtstsI 

SVCSUB=1 
SVCRGLal 

POINTER BGNSW,8GNSFT,BGNDU 



/C/ 




EDIT 



.WORD 1 

.WORD 

•WORD n 

.WORD e 

.WORD L^DVTYP 

•WORD 

.WORD L'JDR 

.vom l<;dpst 

.WORD C 

.WORD L?DU 

.WORD 14 

.WORD 

.WORD L SIN IT 

•WORD LSCLEAN 
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002112 000001 

mm 046j^^ 



35 
36 



42 

il 

45 

\% 

50 

II 

56 
57 

58 

It 

n 

65 
66 
67 
68 

^ 



03^460 



2000 



DEVREG 
.WORD 

DEVTYP 
.ASCIZ 
.EVEN 



ktCYL 
ALLSEC 
DRSRLT 



<PL01> 
/RLCl/ 



COPYRIGHT (C) 1977, 1978 

THIS SOFTWARE IS FURNISHED UNDER LICENSE FOR USE ONL 
ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY W 
-HE INCLUSION OF THE ABOVE COPYRIGHT NOTICE 



THIS 



Y 

ITH 



FOR USE ON SUCH SYSTEM, AND TO ONE WHO AGREES TO THESE 
LICENSE TERMS. TITLE TO OWNERSHIP OF THE SOFTWARE SHALL 
AT ALL TIMES REMAIN IN DEC 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
'*f-^'!?glTK.^^SglSI!i»f''«ill!p8glT?iN?*''"''°'"' * "M«I?HE»T 



DEC ASSUMES NO RESPONSIBILITY FOF 
OF ITS SOFTWARE ON EQUIPMENT WHI( 



BGNMOD GLBEQAT 



EQUALS 

6SR 

VECT 

PRIOR 

ORSB 

CNT 

MISWI 
LOLIM 

mh" 

ERLIM 
DCLIM 



OFFSETS FOP HARDWARE 
=0 



=10 



P-TABLE 

JBUS ADDRESS 
?VECTOR ADDRESS 
JPRIORITY 
?DRIVB SELECT BIT 
JCONTROLLEP TYPE 



OFFSET FOR SOFTWARE P-TABLS 

=0 ;SOFTWARE PARAMETERS SWITCHES 

-2 ?CYLINDBP LOWER LIMIT 

=4 yCYLlNDFR HIGH LIMIT 

=6 JSELECTED HEAD FOR RUNNING TESTS 

rlC ?ERROR LIMIT 

=12 JOATA COMPARE ERROR LIMIT 

BIT ASSIGNMENT FOR SOFTWARE P-TABLE SWITCHES 



BITOO 
BITOl 



IGN iiiiSi 



_ALI_.. „ 

AUTOSZ =BITC'4 
HEADLV 

MITEST =PIH5 

5 SUBSYSTEM FUNCTIONS 

CfCDATA =102 



mm 

=BIT14 



JUSE ALL CYLINDERS 
?USE ALL SECTORS 
^EXECUTE DRIVE SELECT TEST 
JEXECUTE HEAD ALIGNMENT TEST 
;AUT0 SIZE FOR DRIVE-DROP IP NO RESPONSE 
>HEAD LIMIT SPECIFIED FLAG 
?HI LIMIT SPECIFIED FLAG 
JLO LIMIT SPECIPIED 
;EXECUTE, MANUAL INTERVENTION TESTS 



?WRITE CHECK- 



ASSEMBLY ROUTINES MACYll 3')A(1052) 22-NOV-78 16:2C PAGE 1-2 

CZRLCB.PTl 25-0CT-78 13:12 



23 
74 
75 



83 

92 
85 
86 
87 
98 

II 

P 
II 

95 
96 
97 
98 
99 



mm 

oootio 



104 



Si's 

000 



mm 

000400 
OOlOOQ 

mm 

OlOOOC 
02000C 

iml 

003760 



000000 

loogoQ 

OlOOQQ 

mil 
m 

OQ0060 
000001 



GTSTAT 
SEEK 
RDHEAD 
WTDATA 
RDDATA 
RONOHR 
NOOP 




?GET STATUS 
JSEEK 

?READ HEADER 
JWRITE DATA 
7READ DATA 

;READ DATA, IGNORE HEADERS 
;N0 OPERATION 



N FLAGS 



HDR40 
MQUALS 



foSLOW 




?composite operation flags 
jhsader compare operation 
?data compare operation 
?cyclf up operation 
;unload operation 
jin-out seek operation 
?out-in seek operation 
;following write operation 

?REV SEEK SEQ (ADJ INTERFERENCE) 
?FWD SEEK SEQ (ADJ INTERFERENCE) 
JREV SEEK SEQ (OVERWRITE) 
JFWO SEEK SEQ (OVERWRITE) 
;BAD DISK ADDRESS 
7SEEK OPERATION 
. JREAD OP WRITE OPERATION 

jSS^HiADp^SpERATION 
INOUTS!FOLWRT»REVSKSfFK0SKSf REVSKOIFWDSKO 
JMSSSAGE QUALIFIER BITS 

ERROR FLAGS FROM SUBROUTINES 

=PIT00 {OPERATION TOOK TO LONG 

=RITfi ?N0 INTERRUPT FROM OPERATION 

=BITG2 yCONTROLLER HUNG 

=BITC3 ?BAD CONTROLLER CLEAR 



KONTROL ANL _^ . 

JBUS ADDRESS RSgISTER 
JDI-SK ADDRESS REGISTER 
;mULTI-P,URP0SE REGISTER 



STATUS REGISTER 
-EGIS— - 



REGISTER PIT DEFINITIONS - CONTROL STATUS REGISTER 



JCONTROL AND STATUS REGISTER 
?INY ERROR BIT 
;DRIVE ERROR PIT 

. ;non-existant memory error 
jdata late error 
jheader not found error 
?data check error 
jheader check error 
jopepation incomplete error 
jdrive select mask 
jcontroller ready mas»f 
jinterrupt enable mask 

JBUS ADDRESS UPPER mask 
JDRIVE. READY MASK 
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SEQ 0041 



000077 

mi 




5 REGISTER PIT DEFINITIONS - DISK ADDRESS FOR DATA 

IaMSK =77 ?_SECfOR„ADDRESS_MASK 

=^7^00 



HSMSK 
. CAMSK 

fl^tSETO 
P.ISBJT 



jHEAD SELECT MASK 
^CYLINDER ADDRESS MASK 



REGISTER BIT DEFINITIONS - DISK ADDRESS FOR SEEK 
JMUST BE SET/_BIT 



MSK =7^6 
J REGISTER PIT DEFINITIONS 

km" f 

ScMSK 

HCRNG 



;PIaD^11£ecI BIT 
JCYLINDSR DIFPERI 

?GS? 
;0RI' 



ERENCE MASK 

ISK JiODRESS FOR GET STATUS 

STATUS SETUP 
VE RESET MASK 



Hoc 



HDSp S. . 
HDffSEL slOO 

I REGISTER 
STAMSK =7^ 

mm m 

COSTAT =40 
HSSfAT =100 
OSESTAT =|C0 
VCSTAT =1000 
WGESTAT =200C 
SPDSTAT 
STOSTAT 
WLSTAT 



TER BIT DEFINITIONS - MR FOR DATA XFER 
, . . 7 ?«ORD COUNT MASK 

160000 ;waRD COUNT RANGE MASK 

ISTER PIT DEFINITIONS - MP FOR READ HEADER 
760^? KYLINOER MASK 



jSECfOR MASK 
;HEAD SELECT MASK 

BIT DEFINITIONS - MP FOR GET STATUS 
» ST ATE MASK 
fBRUSf HOME STATUS 
?HEADS OUT STATUS 
JCOVER OPEN STATUS 



=^(^L 

=200' 

HCESTAT =400 



WDRSTAT =lC6?iio 



ENDMOD 

BGNMOD GLBDAT 



?HEAD SELECT STATUS 
;DRIVE SELECT ERROR STATUS 
JVOLUME CHECK STATUS 
JWRITE GATE ERROR STATUS 
JSPIN ERROR STATUS 
JSEEK TIMEOUT ERROR STATUS 
JWRITE LOCK STATUS 
;HEAD CURRENT ERROR STATUS 
;HRITE DATA ERROR STATUS 



OF OPERATION MESSA 



HWRCHK 

MGTSTA 

MSEEK 

MREADH 

MWRITE 

MREAD 

MWRSET 

MDATCP 

MHDPCP 



ES 

FILLER 

MESSAGE FOR WRITE CHECK 
GET STATUS 
SEEK 

READ HEADER 
WRITE HATA 
READ DATA 
WITH RESET 
WITH DATA COMPARE 
WITH HEADER COMPARE 
LOAD HEADS 
UNLOAD HEADS 
IN-OUT SEO 
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204 002216 

IP iim 

20B 002226 

II mm 




.WORD 
.WORD 
.WORD 
.WORD 

• WORD 
WORD 

.WORD 
-WORD 

TABLE 
>.WORD 
.WORD 
.WORD 

• WORD 
.WORD 

• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD , 
.WORD 
.WORD 
.WORD 



MOUTIN 

MFOLWPT 

HREVSK 

MFWDSK 

MRESKO 

MFWSKO 

MPAOAD 

M40HDR 

OF RESULT NAME 
MCERR 
MDRERR 
MNEFRR 
MFCERR 
MHDERP 
MOPERR 
MNDRST 

MWDERP 
MHCERP 



MSTEPR 
' MSPERP 

mwgepr 
^ 
MnSEPP 



FOLLOWING WRITE 
REV SEEK 
FWD SEEK 
RSV SEEK 
FWD SEEK 

BAD DISK ADD FOR WRITE 
40 HEADER OPERATION 



MESSAGE ADDRESSES 
JCONTROLLER ERROR 
?DRIVE ERROR 

jNQN-EXISTANT memory ERROR 

Jheader not foond-data late 
5header op data error 
^operation incomplete 
?n0 drive status available 

;WRITE DATA ERROR 
?HEAD current ERROR 



, , TIMEOUT ERROR 

?SPINDLE,ERRgR_ 



?SEEK 

?SPIND__ 

?WRITE GATS ERROR 

;DRIVE SELECT ERROR 



PATTERN TABLE 
.WORD PATl 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



PAT2 
PAT3 
PAT4 
PAT5 
PAT6 
PAT7 
PAT8 
PAT9 
PATIC 



SUBROUTINE CALLING STACK 

I worB S' 

.WORD 

.WORD 

■m g 

.WORD 

.WORD C 

. WORD C 

.WORD 6 



?STACK IS 12 WORDS LONG 



240 002312 000014 



T25TBL: .WORD 2 

CwSrd I. 
.WORD 12. 



?TAPLE OF DIFFERENCES TO BE USED 
;IN TEST 25 
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361 
367 

m 



002424 000000 



34. 
255. 



t33TBL! .BLKW 

CYLTBL: .BYTE 
.BYTE 
.BYTE 
• BYTE 

.PYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



SSINDX! .WORD 



• WORD 
.WORD 

• WORD 
.WORD 
.WORD 
.WORD 
.WORD 



TABLE TO BE USED IN TEST 33 
CYLINDERS TO BE USED IN THE 



AND 34 TO BUILD INO STORE THE 
TEST. 



;TABLF OF DEFAULT CYLINDERS 



JSUBPOUTINE STACK INDEX POINTER 
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OPFLAG: 
DONE! 

hadonb: 

ERHEAD! 

morece: 

ERRSHI: 
BSFLAGS 
HRTSWI: 
TBLSTR: 

RLBAS: 
RLVSC! 
PLDRV: 

L.cs: 
L.BA: 
l.da: 

k:n\ 

T.BAS 

T.DA: 

T.MPS 

HDWRDl: 

HDWRD2! 

HDWRD3: 

T.STAT: 



DRVCNT: 

difaug: 
oldcyl: 
newcyl: 

CURCYL: 

desdip: 
dessgn: 

DESHD: 
DESSEC: 
TEMPO: 
TEMPI: 
TEMP2: 
TEMP3: 
TEMP4: 
TEMP5: 



TEMP61 
TEMP7: 
TEMP8: 



OPERATIONAL Pf.AGS 
WORD C 







.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.WORD 

.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
• WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



.WORD C 
.WORD 
• WORD 



;OPERATION FLftGS 
?OPERATION COMPLETE FLAG 



;M0PE than 1 COMPARE ERROR 
JBRROR RETURN SWITCH 
?BAn SECTOR FLAGS 
JWRITE SWITCH 
?TAPLE STORAGE 

JRLU BASE ADDRESS 
JRLII VECTOR ADDRESS 
JDPIVE NUMBER UNDER TEST 

?CDNTROLLER REGISTER STORAGE 
?BEFOPE OPERATION 



;CONTROLLER REGISTER STORAGE 
• AFTER OPERATION 



JHEADER WORD STORAGE 



;DRIVE STATE STORAGE 

jPAPAM BLOCK FOP REASON REPORT 



?drive count por drives under test 
;difference augment for seek 
jold cylinder 

;NEW CYLINDER 
;CURRENT CYLINDER 
?DSSIRED DIFFERENCE 
?DESIREn SIGN 
?DESIREO HEAD 
;DESIRED SECTOR 

;tsmpopary storage 
jtbmporary starags 
jtemporarv storage 
?tempoparv storage 
jtemporary storage 
^temporary storage 
;tempopary storage 
-temporary storage 



^TEMPORARY STORAGE 



TIMER STORAGE 



m 



ASSEMBLY ROUTINES 
CZRLCB.PTl - 

35 




MACYl 
-78 13112 



1 3011(1052) 22-N0V-78 16:20 PAGE 1-7 



OFIN! 

OPfNOl 

OFMIOJ 

OFMtDU: 

OFOOf! 

OPOOfUS 

ORINS 

OR I NO: 

ORMIDl 

OROOTU: 

HFIN! 

HFINU: 

HFOUTS 

HFOUTO: 

hrim: 

HROr— 
AFM 
AFM__ 
ARMJDJ 
ARMfDU: 



• WORD 
.WORD 
.WORD 
.WORD 

• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

•m 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

•m 

.WORD 
.WORD 
.WORD 



EXOCYL! .WORD 
ESCHCYL! .WORD 
EXACYL: .WORD 
EXROTS .WORD 
EPRVEC: .WORD 



UfOS 
IIDU: 



150. 

m. 

250. 
4 



r n 1 • . "til 
COUNT! .WOl 
ERRPOINT: 
ERRCNT: .BL 
PASNOM: .WORD 

psetnm! .word 
locerp: .byte 
noerctj .byte 
trpflgi .word 
pwrflg: .word 



HISCELLANEOUS COUNTERS 
.WORD 
WORD p 
WORD 

64. 




?ONE 
5oNE 
?ONE 
5oNE 
?ONE 
;ONE 
?12R 
$12R 
;12P 

hin 

?256 
|256 



CYLINDER 

UPPER 
CYLINDER 

UPPER 
CYLINDER 

UPPER 
CYLINDER 

UPPER 
CYLINDER 

UPPER 
CYLINDER 

UPPER 
CYLINDER 

CYLlSEIi 
UPPER 

cylinder 
cylSnSIr 

UPPER 
CYLINDER 
UPPER 



FORWARD 
FORWARD 
FORWARD 
REVERSE 
REVERSE 
REVERSE 
FORWARD 
FORWARD 
REVERSE 
REVERSE 
FORWARD 
REVERSE 



INNER 

MIDDLE 

OUTER 

INNER 

MIDDLE 

OUTER 

INNER 

OUTER 

INNER 

OUTER 



;bxpected time 
?expected time 



ONE CYLIND 

m mi 



IIxpISIId IStStion time 
?error vector used when auto sizing 



?PASS COUNTER (LOCAL TO A TEST) 

JSTDRAGE FOR ERROR COUNTERS 

;PASS NUMBER FOR PROGRAM 

JCOUNTBR FOR PARAMETER SET NUMBER IN 

yLOCAL ERROR COUNTER 

JINHIBIT ERROR COUNTING FLAG 

JHARDWARE TRAP OCCURANCE 

JPOWER FAILURE OCCURANCE 



RAD SECTOR TABLES AND POINTERS 

.WORD ?BAD SECTORS PILES VALID FLAG 



SBSFIL: 
FBSFIL: 

IBUFF: 
OBUFFS 



.PLKW 
.PLKW 

.PLKW 

.PLKW 

.WORD 

• WORD 
.WORD 
.WORD 



;SOFTWAPE BAD SECTOR FILE 
JFACTORY RAD SECTOR FILE 

JINPUT BUFFER 
JOUTPUT BUFFER 

^PATTERN I (ALL ZEROS) 
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MULOAD! 
MCYLUPt 
MOOTIN! 

minout: 

MFOLWPT! 



/READ DATA / 
/READ HEADER / . 
/WRITE CHECK/ 
/WRITE DATA / 



/GET STATUS / „ , 
/WITH DATA COMPARE / 
/WITH HDR COMPARE / 



/FOR 40 HDRS/ 
/WITH RESET / 
/OPERATION; / 
/RESULT! / 
/UNLD DRV/ 
/LD DRV / 

/FOL TO CC SEEK/ . 
/FOL 255 TO CC SEEK/ 
.ASCI7. /FOL «RITE (NO SEEK)/ 
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/ADJ CYL WRTTN AFTER REV SK/ 

/ADJ CYL WRTTN AFTER FWD SK/ 

/SK FWD^WRT - SK REV,0VERWRT/ 

/SK REV^WRT - SK FWD^OVERWRT/ 

/ON BAD SEC FILES/ 

/CAN'T GET BAD SBC FILES/ 

/PAD SEC FILE FMT ERR7 

/TO MANY BAD SEC FOR PROG CaPftCITY/ 

/PUS ADD=/ 

/PRV=/ 

/DRIVE UNAVAILABLE FOR TEST/ 

/DRV DID NOT REC'R PROM PWR FAIL/ 

/RLCS/ 

/RLPA/ 

/RLDA/ 

/RLMP/ 

/OP INIT =: / 
/OP DONE = / 
/WORD / 
.ftSCIZ 



L^TE/ 

ASCIZl_/CNTLP'HUNG (NO RDY)/ 



/OPI SET-NO DRV RESPONSt!/ 
/NO INTPPT ON CMMD COMPLETE 



/ERR DID NOT CLR/ 
/VOL CHK NOT RSET/ 
/UNXPCTED ERR/ 
/ TFST/ 

/MAN INTERVENT STAT/ 
.ASCIZ /STATE CMC/ 
/SPNDL TIMEOUT FAILEI 
/FAIL FORCING DRV SEl 
/INIT STATE/ 
/DRV SELECT/ 
/DRV RDY/ 
/SEEK SGN SWITCH/ 
/HD SWITCH/ 
/PD HDR 
/PD HDR 
/WRT LCK 



TO SET/ 
ERR/ 



K/ 



/DIFF OF 1 ^ 

/OUT GRD BAND D| 



SEEK/ 

. AND DETECT/ 

/INC SEEK FWD HD 0/ 
/INC SEEK REV HD 0/ 
/INC SEEK FWD HD 1/ 
/INN GRD BAND DETECT/ 
/INC SEEK REV HD 1/ 
/SEEK/ 

/FWD OSC SEEK/ 
/REV OSC SEEK/ 
/SEFK TIMING/ 
/BASIC READ DATA/ 
&WRT/READ DATA (P1)K 
/SPINDLE ROTATION TIMING/ 
&WRT/PEAD DATA (P2)& 
/WRT LCK ERR AN^ " 



TA PROTECTION/ 
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MDCRC: 

MHNFS 

MOLT: 



. ASCIZ 
.ASCIZ 
.ASCI7 



SBQ 0049 



ADJ CYL INTERFERENCE/ 

illlillil / 

SPINDLE ROlhlON TIME / 
(STATED IN IOCS OF MICRO 
APPR"" ' 
INNE.^ 
MIDDL6 



ATEU I 

DLE/ 



OUTER/ 
EXPECTED/ 
1 CYL FHD/ 



001 CYL REV/ 
12P CYL FWD/ 
UP CYL REV/ 
255 CYL FWD/ 
255 CYL REV/ 

HDS FAILED TO MOVE IN IP TRIES/ 
CYL PORTION OF HDRS DIFFER WHEN 
HEAD ALIGN. RSET WRT LCK TO SEL 
Mpfr 4 m — 



TYPE 



"CO NT" 



AD FROM TRK & 1/ 
iu oRu nu 0# SET J^OR HD 1/ 
TO CONTINUE TESTING/ 



... ESSED, 

CHK DRV IS ONLDED, COVER OPN^ 
CLSE COVER I PST WRT LCK / 

PrHI toSB & WAIT FOR LOAD LIGHT / 

PRESS LOAD & WAIT FOR RDY / 

REMOVE ADD PLCS EXCPT / 
INSRT ADO PLG / 
IN ALL DRVS / 

INSUFFICIENT DRVS FOR DRV SEL ERR TST/ 



AND WRTE LCKED / 



PPLCF ADD PLCS 
RESET WRT LCK 
ON / 

ON DRV / 
UNDER TEST/ 
WRT LCK / 



AS PEFORE/ 



PIFF / 
SGN / 
HD / 
SEC / 
CYL / 
FROM / 



BYPASSED / 
OUTTNE TRA 
DRV STAT/ 



ROUTINE TRACE SEQ (IN SEQ CALLED):/ 



RAD SEC FILES NOT STRD. 
TOT COMPARE ERRS: / 

MES 

DRV ROY / 
CONT ERR / 
HDR CRC/ 
DATA CRC/ 
HDR NOT END/ 
DATA LATE/ 



ALL SEC ASSUMED GOOD./ 
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I 

ERR 
TE / 



&HDR NOT FND/HDR CRC/OPH^ 
/DRV ERR / 
/SELECTED HO / 
/VOL CHK / 
/COVER OPN / 
/PRUSH HME / 
/WRT LCK / 
/HDS OUT ' 
/DRV SEL _ 
/DRV STATE . 
/SPIN TIMEOUT / 
/WRT GAT ERR / 
/SEEK TIMEOUT / 
/HEAD CUR ERR / 
/WRT DAT ERR / 
/OP INCOMPLETE / 
&HDR/DAT ERR S. 
4HDR NOT FND/OAT LATE 
/NON-EXSTNT MEM / 
/CYL / 
LD 



/COULD 

/UNKN UKV OTATt-NU Kl'V/NU RKK/HUS U 

/FAIL TO RELD HDS AFTER ERR CLEAR/ 



'(iyNKFDRV^STlfE-NO^RBvlNS iRRjHi^ OUT/ 



/WRITE ABORTED/ 

/ ERP„LIMIT EXCEEDED - UNIT DROPPED/ 
/ ERROR? 
<207><377><377> 

SF||IJGS 

/ SB / 

CONDITIONS 

/ OF / 
/STATE 2/ 

'm\ y- 

S.SEEK W/ 
/FIRST 3 

/DATA XFER/ 
/5 SECOS/ 

/INtT»N»T»T»0fi«S%T»01»N/ 

/tN*T*01%Sl%T%01%N/ 

/tNtT%01%Sl%T%TfN/ 

/tT»T/ 

/«N»T»T/ 

/»T/ 

^InCt*t*n/ 

/«N»T»0f*SlfT»01/ 

/»NtSll*T%S4%T%S4%TtS4«T*S4%T%S2%T/ 
/fN%T%06%S2t06%S2%06%S2%06%S3%03%S2%Ol%N/ 



k MOTION& 

MS/ 
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700 
701 
702 




/1iN«T%06%S2*06%S2%06%S2»06/ 

/fN»T/ 

/%T%01/ 

^*Nls!{*T»03*S11kT*03%Sl*T*ql%Sl*T*Ol/ 
/tNtTtf »D3%Sl»f »06%S1*T»06/ 



/%N»SlltT%D3%Sl%T%Q6*Sl%T%06/ 
/f N*S5%g6/ 
/tS10»TtN»SllfO6%N/ 
/tNlsl3%T%S5lT%S4*T*S5%T%N/ 



) 



S13%T 
S2%D6 
S2%D6 



/»T»S12«D6*S14%D6»I 



%S4%06%S4*D6%S4%06%N/ 
fSi4%D6%S4tDfi*N/ 



. . S12lD6lS14%D6lN/ 
/»N*Sli%T%03%SlfT%Di%Sl%T%02/ 

/%N*D2tT/ 

/%N%S1%T%D4%T%T%03%N/ 

/*N*T»D3%T%D3*N/ 

/»NIT»TIT/ 



R3 POINTS TO RESULT MESSAGE 
RESULTS (R3) 

R3 POINTS TO RESULT NAME 
RESULTS (R3) IS 1 SB 

R3 POINTS TO RESULT NAME 
RESULTS {R3) IS SP I 

R3 POINTS TO RESULT NAME 

R4 POINTS TO RESULT CONDITIONS 

RESULTS (R3) IS I SB (R4) 

R3 POINTS TO RESULT NAME 

R4 POINTS TO RESULT CONDITIONS 

RESULTS (R3) IS SB I (R4) 

RESULT ROUTINE DETERMINES WHICH ERROR(S) ARE SET AND 
REPORTS ALL 

RESULTS "ERROR" IS 1 SB 

DRIVE STATE ERROR REPORT 

R3 CONTAINS EirPECTED STATE 

T.STAT CONTAINS BAD STATE 

RESULTS DRIVE STATE IS (T.STAT) SB (R3) 

HEAD POSITIONING ERROR REPORT 

NEWCYL CONTAINS EXPECTED CYLINDER 

HDWRDl CONTAINS BAD CYLINDER 

RESULTS CYLINDER IS (HDWROl) SB (NEWCYL) 

UTILITY RESULT REPORT 
R3 POINTS TO RESULT NAME 



1 
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04737 
" 4737 

m 



003067 
167606 

mm 

022304 
022512 

016122 



021516 
000003 



OOOOOl 



022304 
022512 



167500 



021516 
000003 



022512 



BGNMSG 


ERRl 




TSTB 




BNE 




INC 


ISs 


MOV 




JSR 




MOV 




MOV 




JSR 




JSR 




MOV 




JSR 


ENDMSG 




LIOOOCS 






EMT 


BGNMSG 


ERR2 




INC 




MOV 




JSP 




NOV 




MOV 




MOV 




CLP 




JSR 




JSP 




MOV 




JSR 


ENDMSG 




LlOOOl: 






EMT 


BGNMSG 


FRR3 




INC 




MOV 




JSR 




MOV 




MOV 




CLR 
MOV 




JSR 




JSR 




MOV 




JSR 



R4 POINTS TO VALUE 1 
R5 POINTS TO VALUE 2 

RESULTS (R3-NAME) IS (R4-VALUE 1) SB (R5-VALUE 2) 

COMPARE ERROR REPORT 

R3 CONTAINS THE BAD WORD NUMBER 

R4 POINTS TO BAD WORD 

R5 POINTS TO GOOD WORD 

RESULTS WORD (R3) IS (R4) SB (R5) 



NOEPCT 
IS 

faERRPOINT 

R1/-(SP) 

PC/RPTQP 

PC/RPTRES 
PC^PPTREM 

PC^CK^RiM 



P^^R^ToJ 



PCRPTRES 
PCgPPTREM 

PC/CKtR?;M 




?TEST IP ERROR COUNTING INHIBITED 
?YES - SKIP 

JBLSE BUMP ERROR COUNT 

JSTORE Rl 

;REP0RT OPERATION 

?SET PARAM NUMBER 

JINSERT MESSAGE ADDRESS POINTER 

?REPORT RESULTS 

JREPORT REMAINDER 

^RESTORE Rl 

JGO CHECK IF ERROR COUNT EXCEEDED 



»BUMP ERROR COUNT 
; STORE PI 
;REP0RT OPERATION 
JSET PARAM NUMBER 
HNSERT NAME ADO POINTER 
jSET IS VALUE 
;SET SB VALUE 
;REP0RT RESULTS 
?REPORT REMAINDER 

?pr ~' 



) 



Rl 

K IF ERROR COUNT EXCEEDED 



?bump error count 
jstore pi 
;rsport operation 
jset param number 
jinsert name add pointer 

JSET IS VALUE 
JSET SB VALUE 
JRSPORT RESULTS 
JRFPORT REMAINDER 

RE STORE Rl 
jGO CMECK IF ERROR COUNT EXCEEDED 
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013346 
013350 

mm 

013360 

nm^ 

013370 
01337- 

nw 



013432 
013436 



000001 

mm 

016122 




L10002: 



17$: 



EMT 

ERP4 

INC 

MOV 

JSR 

MOV 

MOV 

MOV 

CLR 

MOV 

in 

MOV 
JSR 



MQV 
JSR 
MOV 
MOV 

MQV 
JSR 
JSR 
MOV 
JSP 



EMT 

ERR6 

TSTB 

BNE 

INC 

MOV 

MOV 

MOV 

MQV 

JSP. 

MOV 

MOV 

CLR 

MOV 

BIC 

CMP 

sgs 

MOV 
BIS 



dEPPPOINT 
Rl/-<SP) 




PCRPTRES 
PgjRPTR|M 




?RUMP ERROR COUNT 
? STORE Rl 
;RepORT OPERATION 
JSET PARAM NUMBER 
?INSERT NAME ADD POINTER 
;SET IS VALUE 
*" VALUE 

ADD OF CONDITION POINTER 



?SET 
HNSERT 

mm 

^RESTORE 
?Ga CHECK 



RESULTS 
REMAINDER 

IF ERROR COUNT EXCEEDED 



J8UNP ERROR COUNT 
;STORE Rl 
IREPORT OPERATION 
>SET PARAM NUMBER 
flNSERf NAME ADD POINTER 
jSET IS VALUE 
iSET SB VALUE 

MNSERT ADD OP CONDITION POINTER 
?REPgRT RESULTS 
JREPORT REMAINDER 
^RESTORE Rl 

?G0 CHECK IF ERROR COUNT EXCEEDED 



NOERCT 
17S 

aEPRPOINT 
Rlz-^SP) 
R3,-(SP) 
R4/-(SP) 
P5,-iSP) 
PC,PPT0P 

T.CS#R3 
#17776UR3 
J4,P3 

ij6ETSTAT^RLnA(R2 
RLDRV,R3 



;TEST IF ERROR COUNTING INHIBITED 
JYSS - SKIP 

?BLSE BUMP ERROR COUNT 

; STORE Rl 

;STORE R3 

?STORS R4 

* STORE R5 

JREPORT OPERATION 

?SET PARAM NUMBER 

?INSERT IS VALUE 

JCLEAR FOP STATUS STORAGE 

;GET T.CS 

5 AND CLEAR ALL BUT FUNCTION 
JCHECK IF IT WAS GET STATUS 
;Y£S - STATUS IS IN T.MP/ SKIP 
) ;ELSE DO GET STATUS 
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0^2705 
5004 

IP 



O00012 
010734 
004000 
010755 
011003 
004000 
010744 
010000 
C10771 
lOCOOO 



9$: 
lOS: 

ill' 



100 S: 



lOS^J 
107St 



139SS 
1155: 



120SJ 

3S: 

45: 



MOV 

WAITUS 

MOV 

EMT 

BIT 

BNE 

MOV 

BR 

MOV 

MOV 

MOVB 

MOVP 

BIC 

MOV 

BIC 

PIS 

BIT 

BEQ 

BIT 

BNE 

BIT 

BNE 

MOV 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

le" 

MOV 

BR 

BIT 

BNE 

MOV 

BP 

MOV 

BR 

BIT 

BEQ 

MOV 

PIT 
BEQ 

MOV 
CLR 
BIT 
BNE 
TST 
CLC 



R|^RLCS(R2) 

ttloI^RO 
C|WTU 

ttCRDYMSK^RLCS(R2) 
10$ 

#PIT9,R3 
TEMP3+1,R3 

tf0^liRR/R3 
1155 

itHNFERR,R3 
1075 

#HCPCERP/P3 
1055 

«M0PERRi:R4 
#FMT2B,»MRS! 
«MERRS/-(SP 

" -<SP>. 



;WAIT FOR CONTROLLER READY 



;YSS - SKIP 

;ELSE SET NO DRIVE STATUS BIT 
JIN MESSAGE WORD AND SKIP 
JSTORE STATUS FOR REPORT 

>GET ERROR BITS IN PROPER POSITION 

?GET ERROR PITS FROM MP REG 
?CLEAR UNUSED BITS 
?GET ERROR BITS FROM CS REG 
?CLEAR UNUSED BITS 
?MAKE ONE WORD OF POSSIBLE ERRORS 
?TEST IF OPI SET 
;N0 - SKIP 

;TEST IF HDR NOT FOUND ERROR 
?YES - SKIP 
>TEST IF HDR CRC ERR 
?YES - SKIP 

;SET OPI ALONE MESSAGE 
,T,R4,«MEPRS ;REPORT ERROR 



csNtb 

|mHCRC,R4 

#HCPCERR/R3 
1095 

SMHNF,R4 
IOCS 

fiMHFCPC/R4 
IOCS 

#0CKERR,R3 

#DLfERR,R3 

||||t,R4 

#BIT15,R5 
R4 

P?,P3 
65 

(P4) + 



CRC/R4 



?SKIP 

?HDR CRC MESSAGE 

JTEST IF HCRC WITH HDR NOT FNO 
/YES — SKIP 

JMESSAGE HEADER NOT FOUND 

?WNF AND HCRC MESSAGE 
?SKTP 

?TBST IF D*TA CHECK SET, NOT OPI 
>N0 - SKIP 

?SET MESSAGE DATA C^ECK 
JSKIP 

ITEST IP DATA LATE ERROR 
>N0 - SKIP 

JSET MESSAGE DATA LATE 
JSKIP 

jSET BIT POINTER fqr TEST 
JCLEAR R4 FOR TABLE COUNT 
?TEST IP BIT IS SET 
;YES - SKIP TO REPORT 
?ELSE BUMP TABLE POINTER 
5CLEAR CARRY 
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298 
909 

l\\ 

913 
914 
915 
916 
917 



(4) 

919 

922 

926 
927 
92B 
929 
930 



939 
|33 



if? 

7) 



0060C5 
001372 




18S: 



ROP 

BNE 

BR 

MOV 

JSP 

BR 

JSR 

TST 

BEO 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

BIT 

BEQ 

BIT 

BNE 

CLR 

MOV 

MOV 

MOV 

MOV 

CMP 

BEQ 

CMP 

BGT 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

INC 

CMP 

INC 

DEC 

RNE 

TST 

BEQ 

MOV 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 



R5 
3^ 
7S 

RESTBL(R4),(R1 ) 

PCRPTRES 

4? 

PC.RPTREM 
pMP3 



JSHIFT BIT POINTER TO NEXT PIT 
;LOOP IF NOT 
;ELSE REPORT REMAINDER 
?IMSERT NAME ADDRESS 
;REPORT RESULTS 
?GET NEXT BIT 
?REPORT REMAINDER 
;TEST IF ANV NEW STATHS 



SNO 

#FHT17,#STAMES,TEMP3 
TEMP3£-<SP) , 
ttSTAMES/-(SP) 

SP^RO 

IdC^ERR/T.CS 

<tO?TERR/T.CS 
25S 

MORECE 
|12B.rRl 

|lBUFF/R4 
(R5)/(R4) 

19S 

MORECE,«10. 

20 S 

#FMT15f *MW0R0,R3/ftRESE3,(R4)/«RESE4,(R5) 
(R5)/,-(SP) ^ 
»RESE4,-(SP) 
(R4)£-(SP) , 
ttPES63,-(SP) 
R3,-(SP> 
#MWRD/-(SP) 
|fMT15£-<SP) 
87, -(SP) 

spSro 
c«pntp 

SP 

PCE ;PUMP error COUNTER 

+,(R4)+ ?BUMP POINTERS 

?PUMP COUNTER 
Rl JDEC LENGTH COUNT 

mSIece jTisT If ANY BSmpare errors 

27$ JNO - SflP 

#128. ,R1 ;SET compare LENGTH 

fiFMT27g»TrERR, MORECE, #RESE6,R1 

frRfSE6,-(SP) 
M0RECE,-(SP> 
ttTCERR,-(SP) 
#FMT27,-(SP) 



SflP 



?TEST 
;N0 



IF 



DATA CHECK ERROR 
SKIP 

JTEST IF OPT SET 

YES SKIP 
JCLEAR COMPARE ERROR COUNT 
?SET COMPARE LENGTH 
;SET WORD COUNT 
;SET GOOD WORD POINTER 
?SET TEST WORD POINTER 
;CHBCK WORD 
SGOOD - SKIP 

JTEST IF COMPARE LIMIT REACHED 
JVES - SKIP. 
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ENOMSG 
LIOOOS: 



ENDMSG 
L10006: 



005277 
01^146 



3S: 



ENOMSG 
L100P7: 

BGNMSG 



MOV 
MOV 
EMT 
ADD 
MOV 
MOV 
MOV 
MCV 
JSR 



EMT 

ERR7 

INC 

MOV 

JSR 

MOV 

MOV 

MOV 

MOV 

JSR 

JSR 

MOV 

JSR 



EMT 

ERPa 

INC 

MOV 

MOV 

JSP 

NOV 

MOV 

MOV 

MOV 

CLC 

ROP 

DEC 

BNE 

TST 

MOV 

JSP 

JSR 

MOV 

MOV 

JSP 



ERR9 

INC 

"OV 



#5,-(SP) 

CJPNTR 
#14<SP 
(SP}*,R5 
{SP)+,R4 
(SPS*,R3 



PC 



-^CK^iiM 



CSMSG 

REPPPOINT 

R1,-(SP) 

P|,PPJ0P 

|m6rvsI«(ri)* 

T.STAT, (PI)* 

R3,(Rl5 JINSEPT 

PC>RPTRES 

PC,PPTREM 

(SP)+,Rl 

PCCKERLM 

CSMSG 



?RESTORE R5, 4, 3, I 

;G0 check if FRROP count EXCEEDED 

?BUMP ERROR COUNT 
?ST0RE Rl 
?REPORT OPERATION 
;SET PAPAM NUMBER 
JINSERT NAME IDD POINTER 
JINSERT IS VALUE 
SR VALUE 
;REPORT RESULTS 
?REPaRT REMAINDER 
JPESTORE Rl 

;G0 CHECK IF ERROR COUNT EXCEEDED 



I8ERPP0INT 

PC,RPTOP 
#3,(R1)*, , 
<*MeYLOC,(Rl) 



(PI) 

R3 
3§ 

(Rl)+ , , 

NEWCYL,(R1) 

PC,RPTRES 

PCfPPTREM 

||pj*,R3 

POCK^RiM 



fERPPOlNT 
fil,-(SP) 



;flUMP ERROR COUNT 
JSTORE Rl 
JSTORB P3 
JREPORT OPERATION 
JSET PARAM NUMBER 
?INSERT NAME ADD POINTER 

HEADER WORD 

"HTFT COUNT 



;SET 



?ALIGN CHAP FOR PRINTING 
; AS IS VALUE 

?HUMP PARAM POINTER 
JINSERT SB VALUE 
JREPOOT RESULTS 
JREPORT REMAINDER 
^RESTORE R3 
JRESTORE Rl 

JGO CHECK IF ERROR COUNT EXCEEDED 



?BUMP ERROR COUNT 
?STORE Rl 
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SKQ 0057 



ENpMSG 
LlOOlO! 



3$: 



MOV 
WOV 
MOV 
JSR 
JSP 
MOV 
JSR 



EMT 

MOV 
TST 
BNF 
INC 
JSR 

PPINTB 

CLR 

BISP 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

Pp?NTR 

Mpv 

MOV 

MOV 

MOV 

MQV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

pilNTB 

MOV 

MOV 

MQV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

INC 



PC,PPTQP 

«3/(Rir 

R3 
R|. 

PC^ftl^fftES 
PCgPPTREM 

^C/CK^rIm 




JREPOPT OPERATION 
JSST PARAM NUMBER 
^INSERT NAME ADD POINTER 
JSET IS VALITE 

jrsIorI XisULTS 

?RRPORT REMAINDER 
;RESTaRS Rl 

;aO C«FCK IF ERROR COUNT EXCEEDED 



JSTORE Rl 

?TEST IF 2ND RAD LINE 
?¥ES - SKIP 
?RUMP ERROR gOUNT 



Rl£-(SP) 

MORECE 

IIrRPOINT ?R0MP ERROR COUNT 

PCRPTOP JRRPORT OPERATION 

iiFMT5,#BASADD,RL§AS,#DRVNAM,<fl,RL0RV-H> 7PEP0PT ID 

RLBAS,-(SP2 

#RASADD,-(SP) 

6fmT5#-(SP) 

SP/RO 
C|PNTP 

IpMff 4,»MRSLT/#MW0RD/P3,#RESE3,(R4),»RESE4/(R5) 

(R5)/-(SP) ^ 

«RESE4,-(SP) 

(P4),-?SP) 

|RES63g-(SP) 

C5PNTR 
p2,SP 

»FMT15#«MW0RD,R3r*RESE3/(''4)/tRESE4,(R5) jREPORT DATA 

(P5l£-(SP) 

|rESE4,-(SP) 



»m(jORD/-(SP) 

SP/RC 
CSPNTP 

M?ptcl 



;TNC COMPARE ERROR COUNT 
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SNnMsr, 
LlOOll: 



MOV 
JSR 



(SP)*<.R1 
PC,CKERLM 



BGNMOD 
BGNHW 



BNDHW 

H0012 

ENDMOO 



EMT 

.EVEN 

HPTCODE 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



mm- 

160 
240 



BGNMOD 
BGNSW 



Miswiw: 



mi .wfiBe 



ERLIMW: 

DCLIMHJ 

ENDMOO 



WORD 
WORD 
WORD 
WORD 



BGNMOD DSPCODE 
DISPATCH 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WQPr 
.WORL 
.WORD 



L$Hy/2 



10013-LSSW/2 





p. 

2C. 
10. 



ORD T12 



;RESTORE Rl 

?G0 CHECK IF ERROR COUNT EXCEEDED 



?CSR RASE ADDRESS DEFAULT 
yVECTOR DEFAULT 
^PRIORITY DEFAULT 
yORIVE NUMBER DEFAULT 
yRLll CONTROLLER 



= USE ALL CYLINDERS 



= USE ALL SECTORS 
= EXECUTE DRIVE 
= EXECUTE HEAD 



VE SELECT TEST 

._..D ALIGNMENT 

= DROP DRIVE IF NO RESPONSE 
" = HEAD SELECT SUPPLIED FLAG 
- HILIMIT SPECIFIED FLAG 
LO LIMIT SPECIFIED FUG 
DO MANUAL INTERVENTION 



?SRROR LIMIT 
JCOMPARE ERROR LI^IT 
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.WOPO T13 
.WORD TIA 



BGNMOO 
BGNINIT 



014656 



003072 



1$: 



mm 



000037 



0127C0 000036 



1$ 



SETPRI 

MOV 

EMT 

MANUAL 

BCOMPLE 

BCS 

RIC 



CLR 

REAOEF 
MOV 
EMT 

BNCOMPLETi 
BCC 
MOV 

REAPEF 
MOV 
EMT 



I^IS^RO 
CSSPRI 



yfTHECK IF MANUAL INTERVENTION ALLOWED 



IS 



;VES 



SKIP 



*fMITEST!DRSELTIHDALIGN,MISWIW ?CLEAR ALL MANUAL 



SSINDX 
#EF.PWR 
#EF.PHR,RO 

CSREFG 
45 



; INTERVENTION FLAGS 

;CLEAR SUBROUTINE STACK INDEX 
JPOWER FAILURE 



?SET POWER FAIL FLAG 
JGO SERVICE POWER FAIL 
JCHBCK IF START 



?NQ, GO CHECK NEW PASS 

4S 

L5UNIT,PWRFLG 
PWCON 
«EF. START 
SeF. START, RO 
C<5REFG 

RNCDMPLETE RESTART ; NO - SKIP 

BCC RESTART 

ON START INITIALIZE TO START AT FIRST DRIVE, CLEAR 
PASS COUNT, AND ERROR COUNT. 
MOV LSUNIT,DRVCNT JSET UP^VJIIT^ COUNT 

PiSNUM yCLEAR PASS NUMBER 



RESTART: 



CLR 
MOV 
MOV 
CLR 
DEC 
BNE 
MOV 
MOV 
MOV 
PIT 
BNE 
MOV 
BIT 
BNE 
CLR 
PR 

'READEF 
MOV 
EMT 



«ERRCNT,RO 

feu" 



Rl 



JGET A COUNT 

JCLEAR A ERROR COUNTER STORAGE AREA 
SLOOP TILL ALL CLEARED 



ttFRRCNT-2#ERRP0INT jINIT ERROR POINTER 

* ' ^- SET PARAM SELECT TO INITIAL 

PRESET HEAD ALIGN DONE FLAG 



ISWIW 



BCOMPLETE 
BCS R?TRT 



li-l,PSETN«l 
e-lSHADONE 
#HICyL,MISWIW 

l377,HTL 
«C0CYL,M 

5? 
LOLJMW 
SETDON 

#EF. RESTART 
»EF. RESTART, RO 

C5PEFG 

RSTPT 



;TEST 
?VES 



IF HI LIMIT 
SKIP 



SET 



?ELSE INIT„mLIMIT„^_ 
JTEST IF LO LIMIT SET 
?VSS - SKIP 
?ELSE CLEAR LO LIMIT 



?CHECK IF RESTART 



READEF 
MOV 



ttEF. CONTINUE 
«EF. CONTINUE, RO 



;TEST IF CONTINUE 
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002660 002660 

mm mm 



NXTPAS: 
PASNEW; 

SETDON: 



FMT C<?REFG 
BCOMPLETE PWCON 
PCS PWCON 

ON CONTINUE PICK UP UNIT LAST UNDER TEST 

READEF ftEF.NEW ?CHECK IF STARTING NEW PASS 

MOV #EF.NEW,RO 

EMT C5REFG 

BCOMPLETE PASNEW 

BCS PASNEW 



7S: 



TST 
BNF 
INC 
MOV 
MOV 
MOV 
INC 
DEC 
ADD 
MOV 
MOV 

GPHARD 

EMT 

MOV 

BCOMPLE 

PCS 

TST 

PEQ 

DEC 

BR 

MOV 

MOV 

TST 

MOV 

SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

SETPRI 
MOV 
EMT 
MOV 



DRVCNT 
SETDON 
PASNUM 

#FPRCNT-2,ERRP0T 
L?UNIT,DRVCNT 
#-l,PSETNM 
PSETNM 
DRVCNT 
«2,ERRP0INT 
PSETNM, RO 
#RLBAS,R2 
R0,P1 



;TBST IF ALL UNITS CHECKED 
JNO - SKIP 

JELSE BUMP PASS COUNT 

T JINIT THE ERROR POINTER 
?GST ALL DRIVES 
JSET PARAM SELECT TO INITIAL 
?NEXT SET OF PARAMETERS 
JDOWN COUNT DRIVE TOTAL 
yUPDATE TME ERROR POINTER 
JSET OP TO GET PARAMETERS 



CSG 
RO, 



Rl 



7S 



;N0 



7S 

PWRFLG 
NXTPAS 
PWRFLG 
NXTPAS 

(FIV* 
(R1)+,(R2)* 



RLVEC,#INTHLR,«340 
#340, -(SP) 
J^INTHLRc-(SP) 
RLVEC,-(SP) 
«3,-(SP) 

c<;svEC 

ttlO,SP 



JSKIP IP GOOD PARAM 
?RECENT POWER FAILURE 
?ACCOUNT FOR DRIVE 



VECTOR 
?8UMP PAST PRIORITY 
; DRIVE 



J SET UP VECTOR 



«0,R0 

C^SPRt 

RLRAS,R2 



?S5T PRIORITY 



?SET RL BASE ADDRESS POINTER 



003062 

000020 014656 



? CHECK IF DOING AUTO SIZE AND DROP DRIVE IF NOT READY AND 

? ERROR SETS ON GET STATUS. 

TST PASNUM ;TEST IF PASS 

BNE 22S JNO - SKIP 

gjT ||yTosz,Miswiw jTgsT |f^dotng auto size 

yCHECK IF UNIBUS ADDRESS IS THErI BEFORE WE CHECK DRIVE READY 
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SEQ 0061 



003070 




5$S 



lOS: 



IItvec 

MOV 
NOV 
MOV 
MOV 
EMT 
ADD 
III 

MOV 
BIS 
MOV 
BIT 
BNE 
HOV 

m 

NOV 

WAITHS 

MOV 

EMT 

BIT 

BFQ 

CLPVFC 

MOV 

EMT 

PRINTF 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PPINTF 

CLR 

BfSB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTF 

MOV 

MOV 

MOV 

EMT 

ADD 

DODfJ 

MOV 

EMT 

DOCLN 



TRPFLG 

ERRVEC,«JRPHAN, 

lTR?fiA5f-|sP) 
|RRVEC^-(SP) 

cl§VEC 

#io,sp 



RLDRV,R5 
ItCRDYMSK, 
R5/RLCS 



iTRIIP nCCORANCE 
f340 — 



;SBT TRAP VECTOR 



JACCESS 

;trap 



■coi?? 

;YE§; BSPt'iNVESTIGATE FURTHER 
?GET DRIVE NUMBER 
?INSERT CONT READY 
K3/Kuv.o{R2) JLOAD IN DRIVE NUMBER 

«DRDYMSK/RLCS(R2) ;CHECK IP DRIVE IS READY 
20$ jYES - GO DO TEST 

•(GETSTAT,PLnA(R2) >ELSE INSERT GET STATUS 



2) IB 



|CRDYMSK,R5 
ft5,RLCS(R2) 

&TM 

S§PIERR^RLCS(R2);TEST IF OPT SET 

?N0 - SKIP 



PAD R5 WITH GE 
,,LEAR CONTROLLE 
JLOAD CS REG 
JWAIT 4 MS 



STATUS FUNCTION 

READY 



„..RVEC 
EPRVEC,RO 



SP^PO 
CSPMTF 

|F^T5,»PASADD,RLBftS,#DRVNAM,<R,RLDRV*l> 
■(SP) 



RLDRV4.1^(SP) 
«DRVNAM«-(SP) 
RLBAS,-tSP) 




iFMT3,-(SP) 

C?PNTF 




JOROP DRIVE 
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20S: 



EMT 

CLRVEC 

MOV 

EMT 



CSDCLN 
ERRVEC 
ERRVEC/RC 
C^CVEC 



MANUAL 

EMT CSMANI 
BNCOMPLETE 
BCC 4§ 



TST 
BNE 
BP 



PJSNUM 



JMANUAL INTERVENTION ALLOWED 
J NO 

>YES, CHECK PASS NUMBER 

?NOT FIRST PASS* NEED DRIVE UP 

?FIRST PASS, PROGRAM HILL INSTRHCT USER 



?CHECK IF POWER FAILURE WAIT IS NEEDED 



4S: 



000000 9%; 



TST 
BEQ 

MOV 
BIS 
MOV 
MOV 
BIT 
BNE 

WAITMS 

MOV 
EMT 
DEC 
BNE 

PPINTF 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

BR 



PWRFLG 
8§ 

RLDPV,R5 
#CRDYMSK/P5 
R5^RLCS(R2) 



ENDTNIT 
L10014S 

ENOMOD 

BGNMOD 
BGNCLN 



> NEEDED??? 
;N0, SKIP 

;DRIVE SELECT 
JSET CRDY 
JSELECT DRIVE 



#60.,R1 fSIXTY SECOND TIMER 

5DRnYMSK/RLCS(R2) JORIVE UP YFT 

?VES START TEST 



8? 

#1C. 
t|0.#PO 
CSWTM 
Rl 



JWAIT A SECOND 



?SIXTV GONE 
JNO 



SP#RO 

lol 



•!;RPHAN,«340 
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000000 2S: 



3S: 
55: 



ENDCLN 
L10015: 



BGNDU 



BGNSRV 
} 



ADD 

SFTPRI 

KOV 

EMT 

BIT 

BEQ 

BIS 

BIT 

BNE 

WAITNS 

MOV 

EMT 

CLPVEC 

MOV 

EMT 

TST 

BEQ 

DEC 

CLPVEC 
MOV 

EMT 



CfSVEC 
#1C/SP 



?SKT PRORITY TO 7 



#7 
ft7,R0 

''";iE?r;f%RivE busy 

5<; >Nf) - SflP 

#3 JWAIT 300 MS 



EMDSRV 
H0017: 



016122 027737 164532 014666 CKERLMi 



CSWTM 
RLVEC 
RLVEC/RO 
CSCVEC 
PWRFLG ;PWR FAIL SET 
7$ ?N0 
PWRFLG 
ERRVEC ^ 
ERRVECRO 
C^CVEC 



yRELEASE VEC 



INC TRPFLG 
RTI 

INTHLR 

INTERRUPT HANDLER. 
ABORTWAIT 
EMT C$ABRT 
MOV (R2)*/T.CS 
MOV (P2)*/T.BA 
MOV (r5)+,T.DA 
MOV fP2)£T.MP 
MOV #-l,DONE 
MOV RLBAS,R2 



ABORTS WAIT TIMER AND STORES ALL RLll REGS 
JSTORE RL REGISTERS 



?SET DONE FLAG 
?RP:ST0RE R2 



ERROR LIMIT CHECKING ROUTINE 

''"S?lRfSi5?TRc^r." "<^"5I?st error limit exceeded 
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lip 
SI 



00 2453 
10 4020 




000002 
000200 

'-'till 



BLT 15 
INLOOP 

EMT C5INLP 
BCOMPLETE 
BCS 



?N0 - SKIP 

yCHSCK IF IN ERROR LOOP 



?VES - SKIP 



,,0000 002466 
C50002 002470 

mu mm 



15: 

READRLi 



PRINTF 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

PRTNTF 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTF 

MOV 

MOV 

MOV 

FMT 

MOV 

EMT 

DOCLN 

EMT 

RTS 



5FMT25/ERLIMW,«MBXERS 
«MEXEPS, 



fSP) 

(k] 



ERLIMW,-(S 
|iFMT25#-(S 

C5PNTF 

no,sp 

iiFMT5/tBASADD,RLBAS,tfDRVNAM,<B,RLDRV + l> 

Rfopi«-i,(sP), 



tfORVNAM*-(SP) 
RLBAS#-(SP) 
ttPASADD,-(SP) 
#FMT5,-(SP) 



SP) 



C5PNTF 
#14tSP 
jfPMT3 

IfmT3c-<SP) 

C5PNTF 
lt4,SP 
PSETNM 
PSETNM,RO 

c5Dnnn 

C<!:DCLN 
PC 



;nROP DRIVE 
;no TO CLEAN f|p 



READ AND STORE ALL RL 

MOV RLCSR(R2),T.C 

MOV PLBA{P2Lt.BA 

MOV RLDA{R2)/T.DA 

MOV RLMPCR2)/T.MP 

RTS PC 



REGISTERS 

;GET CS REG 

?GET BUS ADDRESS REG 

;GET DISK ADDRESS 

jgst multi-purpose reg 
;return 



000002 



Saitin: MOV 

CLP 
BIT 
BEQ 
JSP 
TST 
BEQ 

15: MOV 
PIT 
BEQ 
MOV 



WAIT FOR CONTROLLER TIMEOUT TO PORCE INTERRUPT ROUTINE 
(SP),-(SP) JMAKE ROOM FOR ERROR POINTER 

2(SP) jCLEAR FOR POINTER 

fCPDYMSK/RLCSR(R2) JTEST IF CONTROLLER READY 



P?,READRL 

DONE 
55 

tMT0SL0M£2(SP) 
|OPIERP,T.CS 

tfMDPRES,2(SP) 



?N0 - SKIP TO WAIT 

;READ ALL RL REGS 

;TEST II? INTERRUPT OCCURRED 

>N0 - GO SFT NO INTERRUPT ERR FLAG 

JELSE SET TO SLOW ERROR POINTER 

?TEST IF OPI SET 

JNO - SKIP 

;SET MESSAGE "^OR NO DRIVE RESPONSE 
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MS FOR TIMEOUT 

CfiWTM 

»CRDyMSK/RLCS(R2) 
3<i J YES - 

PCtREADRL ?READ 
|MCDNHNG,2(SP) JSETpME 

^ jElIe CHECK IF INTERRUPT OCCURRED 

?YES - SKIP TO SET TO SLOW 
?READ RL REGS 

JELSE SET NO INTERRUPT FLAG 
;G0 iO RETURN 



gjTEST IF READY NOW SET 

RL REGS 
SSAGB FOR CONTROLLER HUNG 



ONE 



PC/PEADRL 
«MN0INT#2(SP) 

2§ 



OPERATION AND TEST INITIALIZE ROUTINE 

CLP MORECE JRESET MORE COMPARE ERRORS 

RTS PC 



GET STATUS AND G 

MOV ' 



TEMP4£*(SP) JSTQ! 
»GETSTAtTdRSET/TEMP4 
GSTATG 

TEMP4,-(SP) 

ttGETSTAT/TEMP4 
GSTATG 



STATUS WITH RESET ROUTINE 
STORE TEMP4 

;SET FOR RESET 



?STORI 
;SET f 



TEMP4 
OR NO RESET 



TEMP4^- 
TEMP4 

(R3) 



;STORE TEMP4 
JSET FOR SAVE L. 
; STORE R" 



AND ?. REGS 



; STORE R3 

;get subroutine index 
?bump it for next entry 



STK< 
SINDX 
'SP) 
SP) 
RSWI 
'E 



UST IT TO CALLING LOCATION 



«SP)£SUBSTK(R3) JiNSERT THIS CALL 



?STORE RO 
?STDRE Rl 



T/TEMP4 



?SET FOR NO ERROR RETURN 
?TSST IF. DRIVE RESET 



JNO - SKIP 



inRVERR/RLCS(R2) JTEST IF DRIVE ERROR SET 



MOV 
JSR 

ill 

BNE 
BIT 
BNE 
BIT 



#3,R0 

^lo "ri 

?C,G§TAT 
ttDRDYMSK,T.CS 
#HOSTAT,T.MP 



J NO *" SK i P 
;aAIT FOR 300 MS FOR DRIVE TO SETTLE 



?SET WATT FOR 5 SEC 
;GET DRIVE STATUS 



JTEST IF DRIVE READY 
GO DO CLEAR 



;yes 

?ELSE TEST 



IF HEADS OUT 



51$ JYES - BYPASS RELOAD WAIT FLAG SETTING 

#SPDSTATIHCFSTATIWDESTAT,T.MP ?TEST IF DRIVE HAS ERROR 

?THAf CAUSED HEADS TO 
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000001 



016514 
011512 



111 



mm 



000000 13S: 



BEQ 

PIS 

BR 

BIT 

BNE 

MAITMS 

MOV 

EMT 

DEC 

BNE 

MOV 

ERRHPD 

TRAP 

.WORD 

.WORD 

BR 

TST 

BNE 

MOV 

MOV 

MOV 

DEC 

BNE 

MOV 

BR 

MOV 

CLR 
MOV 
BIC 
BIS 
MOV 
MOV 

WAITUS 

MOV 

EMT 

TST 

BEQ 

MOV 

BIC 

BIT 

BEQ 

BIT 

BEQ 

MOV 

BIT 

BNE 

WAITMS 

MOV 

EMT 

DEC 

B*?f 

if 

MOV 

ERRHPD 



5S 

ttPELOWT^OPFLAG 
#DRVEPR/T.CS 

If 

C<>WTM 



«MUNDEF,R3 
10001. ti-ERRl 
JJERCofif 

ERRl 
14S 
TEMP4 
5S 

Il;mp+2,p3 

-(R3>,-(SP) 

Rl 
8§ 

|GETSTAT,L,DA 
tImP4,L.DA 

DONE 

RLDRV,L.CS 
ttBITiP,L.CS 
SGTSTAT,L.CS 



?N0 - SKIP 

5ELSE SET WAIT FLAG 

?SKIP TO CLEAR 

JTEST IF DRIVE ERROR NOW 

JYES - SKIP TO CLEAR 

JWATT FOR DRIVE TO GET ERROR, RDY, OR HC 



JDEC WAIT COUNTER 

J IF NOT DONE, LOOP 

JMESSAGE FOR UNDEFINED STATE 



JEXIT 

JTEST IF SAVE REGISTERS 

JNO SKIP 

JSET SAVE COUNT 

JSET ADDRESS OF FIRST SAVE 

JPUT REG ON STACK 

JDEC COUNT 

JLOOP UNTIL ALL SAVED 
JSET FOR GET STATUS 
JSKTP 

JINSERT PRESET FOR STATUS 

JCLEAR INTERRUPT FLAG 
JSET UP TO GET STATUS 
JCLEAR FOP DRIVE 4-7 SPEC'D 



JLOAD RL REGS 
JLOAD CS REG 

JWAIT 100 US FOR INTERRUPT 



L.DA,RL0A(R2) 
|.CS,PLCSP(P2) 

#1,RC 
CSWTU 

DONE JCHFCK IF INTERRUPT OCCURREH 

IS JNO - SKIP 

T.MP4T.STAT ;STOPE MP REGISTER 

#''C<STAMSK>, T.STAT JCLEAR ALL BUT STATE 
«OPSET,L.DA JTFST IF RESET WAS SPECIFIED 

3| JNO - SKIP TO EXIT 

«PELDWT,OPFLAG jTEST IF RELOAD WAIT FLAG SET 
12s JNO - SKIP 

BP0Q.,R1 , „?SST WAIT COUNT FOR 60 SECONDS 

:JRDyMSK,RLCS(P2) jjTEST IF DRIVE NOW READY 



JTEST I- 
JVES - SKIP 
JCALL WAIT 



^II/^siRl 



JDEC COUNT 
JLOOP IF NOT 

JSET RESULT MESSAGE POINTER 
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000012 
016514 

lOOOOO 002466 
001000 002474 
006161 

040000 002466 7$: 



006202 
016314 



2440 
2550 



0Q2456 
000004 



mm 

002440 
000000 



25! 



20S: 



n0f)002 002424 22$: 



99SS 



1500 

'~01 



in 



002260 
002260 



TRAP 

.WORD 

.WORD 

BR 

WAFTUS 

MOV 

EMT 

if 

BIT 

BEQ 

BIT 

BE<3 

MOV 

BP 

BIT 

BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 

BR 

MOV 

BR 

JSR 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

CLR 

TST 

BNE 

MOV 

MOV 

MOV 

DEC 

BNE 

SUP 

MOV 

MOV 

MOV 

MOV 

TST 

BEQ 

ADD 

RTS 

MOV 

RTS 



MOV 
MOV 
TST 
MOV 

SUB 



ERRl 

lii:,Ro 

C§WTU 
PC/GSTAT 

#ANYERR/T.CS 

||cSTAT/T.MP 

#VCNRST,R3 

ioRVERRrT.CS 

llo04.t<-ERR6 

t|ercode 

14S 

ttUNXERR,R3 

pLwaitin 

(SP)+,R3 
10002. #«ERR1 

ERRl 
ERRSWI 

|L.CS,R3 

|SP)+/(R3)* 

20 S 

(SP)*,RO 

(SP)<-,R3 

(SPi+£TEMP4 

ERRSWI 

99S 

ERRSWI/(SP) 
PC 

p(SP),(SP) 

PC 

R3#-(SP) 
SSINDX/R3 



;G0 to EXIT 
;WAIT FOR IMS 



JGET DRIVE STATUS 

JTEST IF ANY ERROR 
JNO - SKIP 

KHECK IF VOLUME CHECK RESET 
;YES SKIP 

;SET REASON POINTER 
?EXIT 

JCHECK IF DRIVE ERROR 
JNQ - SKIP 



?EXTT 

JSET REASON POINTER 

JWAIT FOR INTERRUPT 

JSTORE REASON POINTER FOR RETURN 



?CLEAR FOR ERROR RETURN 
;TEST IF REGISTERS WERE SAVED 
JNO - SKIP 

;SET POINTER TO RESTORE 
?SET REGISTER COUNT 
;RBSTORE PEG 
JDBC COUNT 

?LOOP UNTIL ALL ARE RESTORED 
JREMOVE ENTRY FROM SUBROUT STACK 
JRESTORE Rl 

JRESTORE R3 

^RESTORE TEMP4 

?TEST IF ERROR RETURN 

JYES - SKIP 

;ADD in ERROR RETURN 

?SET ERROR RETURN ADDRESS 



;STORE REGISTERS 
?GET SUBROUTINE INDEX 
?8UMP IT FOR NEXT ENTRY 



(P3)* fov-r i. I r urv u 

2(SP)£SUBSTKf R3) JlNSSRT THIS CALL 
#4,SUPSTK(R3) ;ADJUST IT TO CALLING LOCATION 
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35: 



55: 
75: 



oiof^l 



002440 

000002 002424 

002440 
002440 
000000 



135: 



995: 
7 



MOV 
MOV 
MOV 
MOV 
JSR 
655 
MOV 
MOV 
BIS 
BIC 
CLR 
MOV 
MOV 
ASL 
DEC 
BNE 
TST 
BEQ 
BIS 
TST 
BEQ 
BIS 
BIS 



R3,SSIN0X 

ROr-(SP) 

R4>-(SP) 

#2^ERRSWI 

PCRDYCHK 

fL.CS#R4 
#SEEK,(R4) 
RLDRV#(R4) 
*,(R4)+ 

35 

|essgn 

#DIRBITr(R4) 
DESHD 

#§DSEL,(R4) 
|MBSETC,(R4)+ 
DONE 
#10 ./Rl 

-(R4)/RLDA(R2) 




#2/SSINDX 

(SP)*,R3 

ERRSWI 
9QS 

ERRSWI, (SP) 
PC 

a{sp)/(SP) 

PC 



JSTORE IT BACK 



?SET FOR NO ERROR RETURN 
yCHECK IF DRIVE READY 

;GST POINTER TO L REGS 

;SET FOR SEEK 

JINSERT DRIVE NUMBER 

;CLEAR FOR DRIVE 4-7 SPEC'D 

yCLRAR BUS ADDRESS 

?LOAD DIFFERENCE 

JSET COUNT FOR SHIFT TO ALIGN 

?ALIGN DIFFERENCE IN DA 



JTEST IF SIGN SET 
;N0 - SKIP 
yINSERT SIGN 
?TEST IF HEAD 
;YES - SKIP 
?INSERT HEAD BIT 
JINSERT MARKER BIT 
JCLEAR INTERRUPT FLAG 
?SET WAIT COUNT FOR 800US 
JLOAD RL REGISTERS 



JCKECK IF INTERRUPTED 
JYES - SKIP 
?DEC WAIT COUNT 
;IF - SKIP 



;g0 check done 

;go wait for timeout 

jget result message pointer 



JCLEAR FOR ERROR ERROR RETURN 

JRSMOVE ENTRY FROM SUBROUT STACK 
JRESTORE REGS 



JTEST IF ERROR RETURN 

JYES - SKIP 

J ADD IN ERROR RETURN 

JSST ERROR RETURN ADDRESS 



DRIVE READY TEST ROUTINE. CHECKS DEIVE IS READY. IF NOT, WAIT 
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500 MS FOR 
MOV 



mil 



002440 



002466 3$J 



002440 
0D2440 
OOOOftO 



99$! 



EAOY ' 

mi 

|2g|RRSW 



|S||R|..RE5S_ 



mi' 



SUBROUTINE INDEX 

JBUMP IT FOR NEXT ENTRY 



(i?8 



#DRnyMSK,T.CS 
Rl 

|mdPDY/R3 

|||Rgo66 

ERR? 

«50.cRl 

PC/GSTAT 

fDRDYNSf/T.CS 



i,Ra 

SWTM 



|ANVERR/T.CS 

l*^ER_ 
10011 
ERR6 
ERRCNT 
EPRSWI 
#2/SSlN0X 
(SP)4-,R4 

(spWJpo 

(SPi4-,R3 
|RR§wf 

ERPSWI,(SP) 
PC 

|JSP),(SP) 



) JINSERT THIS CALL 
MDJUST IT TO CALL 
ySTORE IT BACK 



f fD CALLING LOCATION 



?SET FOR NO ERROR RETURN 
JSBT WAIT COUNT 
JGET DRIVE STATUS 

jTEST IP DRIVE REftOV 
?YES - EXIT 



;DEC WAIT COUNT 

?LOOP IF NOT 

?SET result message POINTER 

?SET CONDITION MESSAGE POINTER 



;SET WAIT COUNT FOR 5 SECONDS 
;GET DRIVE STATUS 

JTEST IF DRIVE READY 
JYES - SKIP 
;WAIT FOR lOOMS 



;DEC WAIT COUNTER 
;LOOP UNTIL TIME DONE 
JTEST IF ANYERR SET 
JNO - SKIP 
JREPORT ALL ERRORS 



JREDUCE ERROR COUNT FOP DUAL ERRORS 
JCLEAR FOR BRRgR_.REXURN_ 



JRRMOVE ENTRY FROM 
JRESTORE REGS 



JUBROUT STACK 



?TEST IF ERROR RETURN 

JYES - SKIP 

JADD IN ERROR RETURN 

JSET ERROR RETURN ADDRESS 



ASSEMBLY ROUTINES MSCYll 30A(1052) 22-N0V-78 16:20 PAGE 1-32 

CZRLCB.PTl 25-OCT-78 13:12 



012737 




020344 



000001 002550 
002550 



002260 
.-04 002260 
2424 



XRDHD: 
XRDHDG! 



1<j: 
2S: 



000012 
002430 

COOOOl 002466 

000001 002466 
002440 



4$: 



us: 



READ HEIDERS ROUTINE. 

MOV »1.TEMP4 

BP XRDHDG 

CLR TEMP4 

MOV R3£-(SP) 

MOV SSfNDX,R3 

TST iP3H 

MOV 2(SP),SUBSTK(R3) 

SUB #4,SUPST|f(R3) 

MOV R3,SSINpX 

MOV RO#-(SP 

MOV R1/-CSP 

MOV R4,-(SP 



CCR 
MOV 
MOV 
MOV 

WAITUS 

MOV 

EMT 

TST 

BEQ 

BIT 

BNE 

MOV 

MOV 

ERRHPD 

TRAP 

• WORD 

.WORD 

MOV 

JSP 

60S 

BIT 

BEQ 

CLR 

BR 

DEC 

BNE 



|L.MP+2,R3 
-|§1L-(SP) 

J?,ODYCHK 
DONE 

«|.CS/JJ 

|pdhe«6J(r{)+ 

-(Rl),RLDA(R2) 



_JNE 
14$ 

ttDROYMSK/T.CS 

|mErDY,R3 
#CAFDT,R4 
Q017.#£ERR5 



mi 

ERR5 
#50., Rl 
PC,GSTAT 

|DRDYMSK,T.CS 



10 S 

Rl 

4$ 



JSET ''LftG TO BYPASS REG STORAGE 
JGO DO IT 

JSET "LIG TO SAVE T. AMD L. REGS 
JSTORE REGISTERS 
JGET SUBROUTINE INDEX 
JBUMP IT FOR NEXT ENTRY 

JINSERT THIS CALL 
JAOJUST IT TO CALLING LOCATION 
JSTORE IT BACK 



JSET FOR NO ERROR RETURN 
JTEST IF REGISTERS TO BE S 
JNO - SKIP 

JSET POINTER FOR REGS 
JSET COUNT 
JSAVE REGISTER 
JDEC COUNT 

JLOOP UNTIL ALL ARE SAVED 
JCHECK DRIVE READY 

JCLEAR INTERRUPT FLAG 

JGET ADDRESS OF LOAD REGS 
pgp 



JLOAD DRIVE NUMPE 
JCLEAR FOR DRIVE 
JINSERT COMMAND 
JCLEAR BA 
JCLEAR DA 
JLOAD RLU REGS 



JWAIT IMS FOR INTERRUPT 



JTEST IN INTERRUPT FLAG SET 
JNO - SKIP 

JTEST IF DRIVE READY 

JYES - SKIP 

JSET NO READY MESSAGE 

JCONOITION OF AFTER DATA XFER 



JSET WAIT COUNT FOR 5 SECONDS 
JGET STATUS 

JTEST IF DRIVE HAS COME READY 

jNO - SKIP 

JCLEAR ERROR SWITCH 

JSKIP 

JDEC WAIT COUNT 
JLOOP UNTIL TIME DONE 
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012704 C120'^6 



.886 
.887 
.888 
.889 



013705 
000402 

a:'" 

042105 
012701 

mi 

001375 
012601 
n0C2C7 



002476 
000006 
000006 



002456 
000004 



^00002 

002440 
002440 
000000 

002474 

002474 

177677 
000006 



125: 
14$: 



60S 
65$ 



20S! 

002424 22$: 



ERRHRD 

TRAP 

.WORD 

.WORD 

BR 

TST 

BPL 

ERRHPD 

TRAP 

.WORD 

.WORD 

RR 

MOV 

MOV 

MOV 

BR 

JSR 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

CLR 

TST 

BNE 

MOV 

MOV 

MOV 

DEC 

BNE 

SUP 

MOV 

MOV 

MOV 

MOV 

TST 

BEQ 

ADD 

RTS 

MOV 

RTS 



T$ERCo6^ 
10014 

ERR5 



60$ 
T.CS 



eJ?66I^ 



RLMPtP2 
RLMP(R2 

P?£WAITIN 
(SP)+,R3 
10015. £,ERR1 

ERRl 
EPPSWI 
TEMP4 
22S 

JUCS,P3 

(SP)*,(R3)+ 

Rl 

l2#SSINDX 
R4 

(SP)+,R1 
(SP)+rRO 
(SP)+,R3 

ERRSWI 
99$ 

ERRSWI, (SP) 
PC 

ft(SP),(SP) 



?SET CONDITION AP-^ER 5 SECONDS 



JEXIT 

?CHECK FOR ANY ERRORS 
JNO - SKIP 
JREPOPT ALL ERRORS 



?CET POINTER 

; STORE LAST TWO HEADER WORDS 



loSHWl! MOV 
PR 

PQSHSB: MOV 
POSHDO: MOV 
BIC 
MOV 

1$: ASR 

DEC 
BNE 
MOV 
RTS 



POSITION HEAD BIT FROM 



HDWRD1,R5 
POSHDO 
TjMP*R5 ;START 

|-6hsIt{t,R5 

i6/Pl 

R5 
Rl 

(SP)+/R1 

PC 



JEXIT 

JWAIT FOR INTERRUPT 
?GET RESULTS 
JREPORT 



?CLEAR FOR ERROR ERROR RETURN 
JTBST IF REGISTERS WERE SAVED 
;N0 - SKIP 

?SET POINTER TO RESTORE REGS 
?SET COUNT 
JRESTORE REGISTER 
JDEC COUNT 

JLOOP UNTIL ALL ARE RESTORED 
?REMOVE ENTRY FROM SUBROUT STACK 
JRESTORE REGS 



;TfST IF ERROR RETURN 

;YES - SKIP 

;ADD in ERROR RETURN 

;SET ERROR RETURN ADDRESS 



HEADER OR MULTIPURPOSE REGISTER TO LSB. 
;START FOP POSITION HD BIT IN WD 1 
?SKIP 

FOR POSITION HD BIT IN MP 
JSTORE Rl 

?CLEAP ALL RUT HEAD SEL BIT 

JSET SHIFT COUNT 

ySHTFT FOR RIGHT JUSTIFY 



?RESTORF Rl 
; RE TURN 



ASSEMBLY ROUTINES MACYll 301(1052) 

CZRLCB.PTl 25-0CT-78 13:12 



22-N0V-78 16: 2C PAGE 1-34 



890 
891 
892 



20560 
020562 




8S: 



002 002424 9 



MOV 
TST 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 
MOV 
JSP 
13$ 
BIT 
BNF 
DEC 
BEQ 

WAITUS 

MOV 

EMT 

PR 

MOV 

ERRHPD 

TRAP 

.WORD 

.WORD 

MOV 

JSP 

1"$ 

BIT 

PNF 

WAITMS 

MOV 

EMT 

DEC 

BNE 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

BP 

BIT 

BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 

DEC 

CLP 

SUP 

MOV 

MOV 

MOV 

MOV 



JSTORE P3 
;GET SUBROUTINE INDEX 



»4,SU9STK(R3) 
R3,SSINDX 

Pi/-(SP) 

R4,-(SP) 

#2/ERRSMT 
PC/GSTAT 

«DRDYMSK,T.CS 
9$ 

n 

*1/R0 
CSWTU 
5$ 

ftMDRDY,R3 
10020. £#EPR3 

TJEPCODE 

EPR3 

»5C.,P1 

PCGSTAT 

#DRDYMSK,T.CS 

H 

ftl#P0 
C$WTM 
R| 

«e5SEC,R4 
10C21.//ERR5 

j|gpjo6l 

EPR5 

|a§yerr,t.cs 

ldS22.ir,ERR6 

T$EPCODE 

1C022 

ERP6 

EPPCNT 

ERRSWI 

te2irSSINDX 

(SP)4-,R4 

^SPH,R1 

SPU/R6 

SP)*,R3 



;RDJUST it TO CALLING LOCATION 
ySTORE IT BACir 



JSET POR NO ERROR RETURN 
?GET DRIVE STATUS 



?CHFCK IF READY 
;YES - SKIP 
JDEC WAIT COUNT 
JSKIP IF 



JSET NAME MESSAGE PTR 
JREPORT READY ERROR 



JSET WATT COUNT FOR 5 
JGET DRIVE STATUS 

JTEST IF DRIVE READY 
JYES - SKIP 
JWAIT 100 MS 



JDEC WAIT COUNT 

JLOOP UNTIL TIME DONE 

JSET CONDITION AFTER 5 SECDS 



JEXIT 

JTEST IF ANY ERROR 
JNO - SflP 
JREPORT ALL ERRORS 



JDEC FOR DOUBLE ERROR REPORT 
JCLBAR FOR ERROR ERROR RETURN 
JREMOVE ENTRY FROM SUBROUT STACK 
JRESTORE REGISTERS 



JRESTORE R3 
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99S: 



TST 
BEQ 
ADD 
RTS 
MOV 
RTS 



88311? 



002424 65S: 



99$: 



ERRS'^JI 
99S 

ERRSWI/(SP) 
PC 

«(SP)^(SP) 

PC 



?TEST IF ERROR RETURN 

JYES - SKIP 

JADD IN ERROR RETURN 

?SET ERROR RETURN ADDRESS 



GET POSITION ROUTINE. READS A HEADER FROM CURRENT CYLINDER 
(WHERE IT IS PRESENTLY POSITIONED) AND STORES CYLINDER 
NUMBER IN CUPCYL. 

MOV P3£-(SP1 ;STORE REGISTERS 

MOV SSlNDX^ftS ?GET SUBROUTINE INDEX 

TST (R3)+ ;BUMP IT FOR NEXT ENTRY 

Mnu HSP)#SUBSTff(R3) JiNSRRT THIS CALL 

4,SURSTK(R3) JADJU^T IT TO CALLING LOCATION 
„ JSTORE IT BACK 



002260 
002260 



002440 
002426 



III 



SUP «4,S , 

MOV ft3,SSINDX 

MOV PO,-(SP) 

MQV R5/-kSPl 

JSP pfc;XRDHD 
65S 

MOV HDWRD1,R3 

BIC »*CHpCYL,R3 

MOV #7,R5 

ASP [^3 

PFC P5 

PNE 45 

MOV R3,CURCYL 

S!JB «2/SSINDX 

MOV (SP)+/P5 

MOV (SP)-«-/Rg 

MOV (SP)+/R3 

TST ERRSkiT 

PFQ 99$ 

ADD ERRSWI,(SP) 

MOV a(SP),(SP) 
RTS PC 

READ ALL HEADERS ROUTINE. 
IN TBUFF. 
MOV 
MOV 
TST 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
MCV 
MOV 
ADD 
MOV 



JDO READ HEADER 

JGET HEADER WORD 
?CLF.AP ALL BUT CYLINDER 
;SKT SHIFT COUNT 
JSHIFT TO RIGHT JUSTIFY 



?STORE AS CURRENT CYLINDER 
JREMOVE ENTRY FROM SUBROUT STACK 
^RESTORE REGISTERS 



JTEST IF ERROR RETURN 
?YES - SKIP 
?ADD IN ERROR RETURN 

JSET ERROR RETURN ADDRESS 



R3£-(SP) 
SSTNDX/R3 

|?SP),S0BSTK(R3) 
«4,SUBSTK(R3> 
R3/SSINDX 
RO/-CSP) 

Ri;-(spj 

R4,-(SP) 
«|^FRP|WI 

Ihdr'40 ,OPFLAG 

«RLMp,R4 
frlO/L.CS 



40 HEADERS ARE READ AND STORED 
?STORE REGISTERS 



;GET SUBROUTINE INDEX 
5bUMP it FOR NEXT ENTRY 

JINSERT THIS CALL 
lAOJUST IT TO CALLING LOCATION 
JSTORE IT BACK 



ET FOP NO ERROR RETURN 
ET HEIDER COUNT 



J SET 

JSET _ _ 

?SET 40 HOR OP FLAG 
?SET POINTER TO STORE HDRS 
?GET BASE ADDRESS 
JMAKE IT POINT TO MP REG 
JLOAD FOR READ HEADER, NO INTERRUPT 
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m 

2035 
2036 




Ml mm 

460 



002440 
f^02466 



002440 



002462 OQ0004 

mm ilml 



002456 000000 6$: 
077777 

000200 000000 7$: 



000002 002424 65$l 

002440 
002440 

000000 99$S 



BIS 
BIC 
CLP 
CLR 
TST 
PEQ 



MOV 
BIT 
BNE 
JSP 

MOV 
BIT 
BWE 
DEC 
PNE 
JSR 
JSP 
MOV 

ERPHRD 
TRAP 
.WORD 
.WORD 
CLP 
BR 
TST 
~PL 



RLDRV^L.CS 

ttPITlO/L.CS 

L.RA 

L.OA 

DFSHO 
3$ 

«HDSEL,L.DA 
L.DA,RLDA(R2) 



ylNSERT DRIVE NUMBER 
?CLEAP FOP DRIVE 4 - 
JCLEAR BA 
yCLBAR DA 
ITEST IF HEAD 
?YES - SKIP 
;ELSE INSERT HEAD 
;LOAD RLDA REG 



RLDA(R2) 

^elD^S|i;iE?S(R2l^°*^ ^^-fRST IF CONTROLLER READY 



n 

PCPDYCHK 



?YeS - SKIP 
?ELSF CHECK RFAOY 



L.CS£RLCS(R2) ;LOAD RLCS PEG 
#77777, RO 5SET COUNT FOR WAIT 

1^CRDYMSK,RLCS(R2) JCHECK THAT OPERATION COMPLETED 
B| ?YES - SKIP 

PC ;DSC COUNT 

JSKIP IP NOT VET 3 
JELSE GET ALL REGISTERS 
JELSE WAIT FOR TIMEOUT 
?GET RESULT MESSAGE POINTER 



7<; 

PC/PEADRL 

10025. £tfRRl 
TSERCODE 

EPRSWI 
65g 




MOV 
RTS 



i:#SSINPX 
SPU,R4 

(SpU'Ri 
(SPi+£R3 

EPRSWI 
99S 

ERRSWI,(SP) 
|(SP),(SP) 



JCLEAR FOP ERROR RETURN 



JTEST FOR ANY 
JNO - SKIP 



JCLEAR FOR ERROR RETURN 
JSTOPE HEADER WORDS 



JDEC HEADER COUNT 



JREMOVE ENTRY FROM 
JRBSTORE REGISTERS 



SUBROUT STACK 



?TSST 
JYES 



IF ERROR RETURN 



SKIP 

JADO IN ERROR RETURN 
ISST ERROR RETURN ADDRESS 



REPORT OPERATION ROUTINE, PRINTS SUBROUTINE TRACE SEQUENCE AND 
OPERATION BEING PERFORMED PORTION OF ALL 
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010446 

00 



021704 

um: 

021720 
•021726 

mm 

021736 
021742 

im 

021752 
021756 

021772 
021774 
"22000 



002424 
000002 
010534 




016146 
012746 
012746 
012746 

062706 
02C127 

001403 



000010 
000004 



COOOlO 
000016 



351 



002426 



2$: 

20St 

22$: 



ERROP 
MOV 
TST 
BFQ 

MOV 

PRINTB 
MOV 
MOV 
MOV 
MOV 
EMf 
ADD 

PPINTP 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 
ADD 
CMP 
BLF 

PPINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

BIC 

MOV 

RIC 

CMP 

RNE 

PIS 

CMP 

BNE 

BTS 

CMP 

BNE 

BIS 

PPINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CMP 

BNE 

BIT 

BEO 

MOV 

BR 



MESSAGES. 
R4,-(SP) 
SSTNDX 

|2,R4 

«FMT9»«SEQMES } 
iiSEQMES4-<SP) 
»FMT9e-(SP) 
tt2,-(SP) 
SP^RO 
C$PNTR 
.SP 

«FMT16,SUBSTK(R4) 
SUBSTK(R4)/-(SP) 
|FMT|6 -IS^, 

spCpO 

CSPNTB 
6,SP 



?TSST SUBROUTINE INDEK 
ySKIP IF 

?SET INDEXEP TO FIRST ENTRY 
;PRINT "SUBROUTINE CALL SEQ" 



JPRINT CALLING LOCATION 



*2;r4 

R4,SSINDX 

*fFMT4,ERH 
liTSTLAB,- 
EPHEAD,-f 
ltFMT44-(S 
«3,-<SP) 
SP^R^ 
CSPNTB 
#1P/SP 

ttSEEKOPiRORHOP,OPFLAG 



;BUMP INDEX 
-CHECK IF ALL PRINTED 
— ALL 



jLOOP IF NOT ALL PRINTED VET 
n#<fTSTLAP ?ORINT ERROR HEADER 



L.CS,R1 
iil77741,Rl 
|6^R1 

iSEEKpP/OPFLAG 
n2,Rl 
20S 

<fP0RW0P/0PFLAG 
%R1 



rrbflu jCLEAR SK & RD OR WRT FLAG 
?GET COMMAND EXECUTED 
;STRIP ALL PUT FUNCTION CODE 
?TEST IF SEEK OPERATION 
?N0 - SKIP 
?ELSE SET SEEK FLAG 
;TEST IF WRITE 
;N0 - SKIP 
?SET RD OR WRT FLAG 
?TEST IF READ 
?N0 - SKIP 
>SET RD OR WRT FLAG 



#14 
22$ 

lfR0RW0P,0PFLAG 
" ' ■ gOrr 
(SP) 



«FMTl/ftMOPEP,OPMSGS(Rl ) ?PRINT OPERATION 
OPMSGSCR 



KMOPER, 
#FMTl 



MTl4-( 



«3, 

SP/«v 
CJPNTP 

kiO/SP 

«nRSET/L. 

4§ 

<il6rRl 

9$ 



SP) 



?CHECK IF GET STATUS 
;N0 - SKIP 

JTEST IF RESET INCLUDED 
JNO - SKIP 

JSET TO PRINT WITH RESET 
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007777 002426 



45: 
5S: 



es: 
95 : 



000006 

110000 002426 



llim 0Q2426 



15$: 



BIT 
BEO 
MOV 
MOV 
PIT 
BNE 
TST 
ASP 
BP 

PRINTS 

MOV 

MOV 

MOV 

MOV 

E^T 

ADD 

BIT 

BEQ 

MOV 

PRINTR 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

BR 

BIT 

BEO 

PPINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

BIT 

BEO 

PPINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 



;TEST IF ANY OTHER OPERATION 
?N0 - SKIP 

;SET UP TO DETERMINE WHICH ONE 
yPRESET THE POINTER 
?CHECK THE niT 
?IF SET - SKIP 
JRUMP POINTER 



tt^O^POP/OPFLAG 

DPFLAG,R4 
*2C,R1 
»RIT00/R4 
6^ 

(Rl) + 
R4 
55 

#FMT2/0PMSGS(R1) 
0PMSGS(R1 ),-(SP) 

C5PNTB 
1*6, SP 

iiHDR40/OPFLAG jTEST IF 40 HEADER OPERATION 
105 ;N0 - SKIP 

«50,R1 ;ELSE PRINT IT 

ttFMT2eOPMSGS(Rl) 

CSPNTR 
#6,SP 

15S JSKIP 
hSFFKOP,OPFLAG ?TEST IF SEEK 
155 JNO - SKIP 

#^MT13/^FPMWD,OLDCYL,#DTFWD,DESDIP,»SGNW0,DESSGN,ftHDWD,DESHD 

DFSHD,-(SP) 

*iHDWD,-(SP) 

DESSGN,-(SP) 

fcSGNWD/-(SP) 

DFSDIF,-(SP) 

ttDIFWD,-(SP) 

OLDCYL,-(SP) 

JrFRMWD,-(SP) 

tfFMT13#-<SP) 

C5PNTP 
«24,SP 

fl PORWOP/OPFLAG JTEST IF READ OR WRITE SET 
17$ JNO - SflP 

JiFMT22,#CYLWD,CURCYL,ttHDWD,0ESHD,«tSECWD,DESSEC 

DESSEC/-(SP) 

toSECWD,-(SP) 

DESHD#.-(SP) 

#hdwd,-(sp5 
curcyl/-(sp) 

«CYLWD,-<SP) 

«FMT22#-(SP) 

tt7,-(SP) 

SP,PO 

CSPNTB 
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SEQ 0C377 




-600 

21127 
-01453 

mm 

wm 

01442 



002504 



mm 

012342 



011647 
000003 




17$: JSP 
MOV 
RTS 

} REPORT 
J PRINTS 
ftPTRESS MOV 
MOV 
MOV 
MOV 
MOV 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CMP 

BEQ 

MOV 

CMP 

PNE 

MOV 

35! DEC 
BEQ 

PRINTP 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PPINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

SUB 

BEQ 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

6SS MOV 

MOV 



?CLEAR PARAM TABLE 
?RESTORE R4 



«20,SP 
PC,CLPPARM 
JS^)*,R4 

reason routine 

reason portion fdr all error reports. 
pi,-(spT >store pi 

U3,'\SP) ;STORE R3 
R4£-iSP) ?STORE P4 
liRESPARM^Rl ?GET START OF PARAM 
(Pll*rR3 JGET NUMBER OF PARAM 
|FMfl.le#MRSLT,(Rl* " " 



, .1,#MRSLT 

SP^RO 

CSPNTB 

«10-SP 

(Rl5/#MNDRST 

»?MT11,R4 
|R1)+#«MCYL0C 

JFMT12/P4 

6 5 

P4^ifRESE|^(Pl)^ 

IreIe§7«(sp) 

SP#PO 



JPRINT NAME 



?TEST IF MESSAGE IS NO DRV STATUS 
;YES - SKIP REST OF REPORT 
;PRISET FOR FORMAT 11 
jCHECff IF REPORTING CYLINDER LOC 
?N0 - SKIP 

;ELSE CHANGE TO FORMA-^ 12 
JDEC PARAM COUNT 
?IF - EXIT 
JREPORT IS VALUE 



S^NTB 
«10#SP 
R4*fPESE 



#RESE4£-(SP) 
R4,-{SP) 



RD* ;REPORT SB VALUE 



#PMTl,#RESE5,(RlU 



JDSC^PAR|M^^0UNT 



IF 




;REPORT CONDITION 



^RESTORE REGS 
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JRETURN 



PEPOPT 
AND ALL 
PPINTB 
CLP 

MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

REPORT 
PRINTB 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

PPINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

RTS 



ENTS. 

#RLBSS,ffDRVNAM,<B,RLDRV*l> 



PHYSICAL ADDRESS OF DEVICE UNDER TEST 
REGISTER CONTEN-- 
«FMT5/ftBASADD, " 

RLRASe-CSP) 
«BASADDj-(SP) 
IfMT5,-(SP) 
«5,-pP) 



rlIi'rbgisters.. 



#FMT6##CSNAM,#DANAM,#BANAM,#MPNAM,«CYLWD,#HDWD 



^HDMOi-(SP) 
«CYLWD/-(SP 




#20, SP 

tfFMTS^^LABl/L.CS/L.nA^L.BA/L.MP 

L.MP,-(SP) 

L.BA,-(SP) 

L.Dft,-jSPj 

I^Mllc-fsp} 

66, -(§P) 
SP,RC 
CSPMTP 
«16£SP 

#PMT7,#LAB2,T.CS,T.DA,T,PA,T.MP,CURCyL,DESHD 
OESHO*-(SP) 
CURCYL,-(SP) 
T.MP/-(SP' 
T.BA,-(SP 
T.OA,-(SP 
T.CS,-(SP^ 
ltLAP2,-(Sf ) 
#FMT7,-(SP) 



CSPNTP 
PC 



CLEAR PARAMETER BLOCK FOR REPORTING 
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CZRLCR.PTl 2 
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022776 



clrparm: 



2S! 



002504 



MOV 
MOV 
CLR 
DEC 
BNE 
MOV 
MOV 
RTS 



MOV P5,- 
tfRESPARM^Pl 
#5,R5 



?Iesparm,ri 

JSP)+,R5 



JSTORE R5 
.....RESS OF RLOCfC 

COUNT 

?CLEAR WORD 
JDEC COUNT , 
JLOOP UNTIL 
JRSSET POINTER 
JRESTORE R5 
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SEQ 0080 



003062 
014656 
n06225 




020000 
011120 



lOOOOS: 



002474 7$: 



002474 9$: 



104443 



TST 
BNE 
TST 

ggt 

PPINTF 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CLR 

GMANIL 

EMT 

PP 

.WORD 
.WORD 
.WORD 
.WORD 

TST 
BEQ 
JSR 
JSR 
66S 
BIT 
PNE 
MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

BIT 

BNE 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

BIT 

BNE 

MOV 

ERRHRD 
TRAP 



BASIC INTERFACE (PART 1) 



JTESTOI 

PASNU" 
65$ 

MISWIW 

#Mf STST^ERHEAD 



Tl:: 

;CHFCK IF FIRST PASS 
JEXIT IF NO 

;CHECK IF MANUAL INTERVENTION 
;N0 - EXIT TEST 
-LOAD EPR HEADER 



<iFMTnpi^#OPRl,*o5Ri Ai«B ASADD,'RL'BAS,«DRVNAM,<B,RLDRV-»-l> 
-(SP) 
1V4 



RLpRV-»-l,(SP) 
«DRVNAM,-(SP) 
RLPAS,-(SP) 
»PASADD,-(SP) 
50PP1A/-(SP) 



#0PR1,-(SP) 
«FMTQP1#-(SP) 
it7,-(SP) 

spSpo 

CSPNTF 

OPufP JCLEAR FOR RESPONSE 

OPR002/OBUFF,1,NO 

CSGMAN 

lOOOOS 

OPUFF 

TSCODE 

OPR002 

1 

ORUFF 
2$ 

PC^TSTINT 
PCGSTATC 

#COSTAT,T.MP 

7<: 

»MC0STA,P3 
1C1.##EPR3 
T?ERCODE 
ICl 

ERR3 

#BHSTftT/T.MP 
9S 

«M8HSTAuR3 

t||r66de'^^ 

ERP3 

tWLSTATrT.MP 

lis 

#MWLSTA,R3 
103.£#ERR3 

TSERCODE 



JTEST RESPONSE VES 
JYFS - SKIP 

JINITIALIZE TEST 
J<TQ GET STATUS (NO RESET) 

jCHECf IF COVER OPEN SET 
JYES - SKIP 
?SST NAME POIMTER 



;TEST IF BRUSHES HOME 
;YES - SKIP 

JSET POINTER FOR BRUSH HO»'E ERROR 



;TEST IF WRITE LOCK SET 
5YES - SKIP 
JSET NAME POINTER 



ASSEMBLY ROUTINES 
CZRLCB.Pll 23-0CT-78 

Ml nm] inm 



MftCYll 301(1052) 22-NgV-78 



2430 

r 



m 



016464 



02 

02j^^i 

023244 104001 



11$: 



16:20 PAGE 2-1 

BASIC INTERFACE (PART 



. WQRD 
.WORD 
TST 
PEQ 

TRAP 
.WORD 

655 



103 

ERR3 

T.STAT 

104.t/ERR7 

f|ERCDDE 

1rR7 

PC/GSTATP 



CSETST 



JTEST 1^ STATE TIERO 

>YES - SKIP 

;SET STATE EXPECTED 



?D0 DRIVE RESET 



ASSEMBLY ROUTINES 
CZRLCB.Pll 23-0CT-78 




30A(1052) 22-NQV- 
*TEST 2 



16t20 PAGE 2-2 

BASIC INTERFACE (PART 2) 



46 

023446 



.SBTTL ♦TEST 2 



10000 SS 
ISS 



002474 



002474 9SS 



65$: 



104001 



TST 

Bm 

TST 
BPL 

my 

PRINTF 
CLR 

Bise 

MOV 
MOV 
MOV 
MOV 

MOV 

MOV 
MOV 
MOV 
FMT 
ADD 

CLP 

GMANIL 

EMT 

BP 

.WORD 
. WORD 
.WORD 
.WORD 

TST 
BEO 
JSR 
JSR 

m 

BEQ 
MOV 

ERRHRP 

TRAP 

.WORD 

MOV 

ERRHRD 
TRAP 
.WORD 
.WORD 



BASIC INTERFACE (PART 2) 
JTEST 2 



PASNUM 
65S 

MISWIW 



T2: 



JTEST IF PASS 
JNO - SKIP 
?TEST IF MANUAL INTERVENTION 
?N0 - STIP 
ERROR HEADER 



_STST,ERHEAD |SET ^ 

,,FMT0Pl,>0PR2,»0PRlA,»RASAD0,RLBAS,fiDRVNAM,<B,RLDRV+l> 
-(SP) 

RLDRV+1,(SP) 

KLH Ao#— I or 1 

#PASADD,-(SP) 
WPP1A,-(SP) 
*rOPR2£-(SP) 
{fFMTOPlf-(SP) 

CSPHTF 
«2C,SP 



;REQUEST CLOSE 



UFF 

mi' 



OBUFf 
OPRC 

lOOOOS 
OBUFF 



OBUFF 



JCOVER AND RESET '^RTTE LOCK 
jCLEAR for RESPONSE 
/1/N6 



gRUFF 

PC,TSTINT 
PC/GSTATR 

I^OSTAT^T.HP 



|5pT»T/T 
»M»LST«,R 



?TEST IF RESPONSE YES 
?N0 - S«fIP 

JINITIALIZE TEST 
JGST STATUS WITH RESET 

JTEST IP COVER OPEN RESET 
JYSS - SKIP 

JSET NAME MESSAGE POINTER 



JTEST IF WRITE LOCK RESET 
JVES - SKIP 

JSET NAME MESSAGE POINTER 
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HEAD LOADING 



m 

2474 

m 

2477 
2478 



005737 

im 

100402 

mm 

004737 
004737 

iim 

001440 



023532 
023536 



023652 
023654 



023674 
23702 



003062 
014656 



016446 
016464 




004066 



005046 
153716 

'}12246 
012746 
012746 
01C600 

mil 

012737 
012703 



0Q0Q20 
000004 
000001 



Sgnt s^r 



loooos: 



TST 

BNE 

TST 

BMI 

EXIT 

EMT 

• WORD 

JSP 

JSP 

PEQ 

PRINTF 

CLR 

BISR 

MOV 

MOV 

MOV 

MOV 

Mnv 

MOV 
MOV 
MOV 
EMT 
ADD 
CLR 

GMANIL 
EMT 

BR 

.WORD 
.WORD 
.WORD 
.WORD 

TST 

REQ 

PRINTF 

CLP 

BISB 

MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 
MOV 
MOV 
MOV 
MOV 



;TES 



PASNUM 

m5swiw 

TST 

mm.. 

PC/TSTINT 
PC/GSTATP 

T.STAT 

2<i 



;TEST IF PASS 
JHO SKIP 

JTSST IF MANUAL INTERVENTION 
JYES - SKIP 



JINITIALIZE TEST 
JGET STATUS 



?TEST I'' STATE ZERO 
?YES - SKIP 



CLEAR FOR RESPONSE 



»FMT0Pl/#0PP5/»0PRiA,»8ASAD!),RLRAS/»0RVNAM,<B,RLDRV*l> ^REQUEST DRIVE BE 
-(SP) 

RLDRV*1,(SP) 
#ORVNAM,-(SP) 
RLBASfc-CSP) 
ffPASADD/-(SP) 
ttOPRlA,-(SP) 

Jfmto^I#-(^p> 

CSPNTF 
iiSOtSP 

ORUFF ?i 
OPR002^0BUFF,l,NO 
C|GMAN 

TSCODE 
OPR002 

OBUFF JTEST IF RESPONSE YES 

IS INO - SKIP 

»FMT0P1,#0PR3/*0PR1A,«BASADD,RLRAS,«DRVNAM/<B,RLDRV+1> 
-(SP) , ^ 
RLDRV*1/(SP) 
ttpRVNAM,-(SP) 
RLBAS#-(SP) 
ttPASADD,-(SP) 
*0PR1A^-(SP) 
^OPRIz-CSP) 
»FMT0P1#-(SP) 
#7^-(SP) 
SP,PO 
CSPNTF 
«20/SP 

#CYLUP,OPFLAG JSET CYCLE UP FLAG 
«1,P3 ;SET EXPECTED STATE VALUE 

iiNSTACHG/ERHEAO ?SET ERROR HEADER 
#30C.rRl ;SET WATT COUNT FOR 30 SECONDS 
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2488 
2489 

"49' 




01270C 

04443 
00457 



002502 



JSR 
T365$ 
TST 
BNE 
DEC 
BEQ 

WAITMS 
MOV 
EMT 
BP 
CLP 

GMANIL 
EMT 

BR 

.WORD 
.WORD 
.WORD 
.WORD 

TST 
BNE 
BR 

CMP 

BEQ 

lis: ERPHPD 
TRAP 
.WORD 
.WORD 
EXIT 



10001 S: 



10$: 



13$! 



C04000 002474 



.WORD 
MOV 
MOV 
14$: JSR 

T365$ 

CMP 

BEQ 
BHI 

ERPHRD 
TRAP 
.WORD 
.WORD 
EXIT 
EMT 
.WORD 
17$: DEC 
PEQ 

WAITMS 
MOV 
EMT 
BP 

18S: ERPHRD 
TRAP 
.WORD 
.WORD 
BIT 



FC^GSTATC 

T.STAT 
10 S 
Rl 

»f 

ffl#R0 
CSWTM 
3S 

OBUFF 

OPRC03^0BUFF,1, 

C^GMAN 

16001$ 

OPUFF 

TSCODE 

QPR0C3 

OPUFF 

lis 

|Lt.stat 

301.,|.ERR7 
TJ|PCODE 

EPR7 
TST 



#300. ,R1 

«2/P3 

PCGSTATC 

RgfT.STAT 

^7$ 

302./|'ERR7 

||ERCODE 

EPP7 
TST 

Rl 

»1,P0 
C|WTM 

ic!.//EPR7 

TSEPCODE 

303 

ERR7 

HSPPSTAT/T.MP 



?GET STATUS 

JTEST IF STATE IS STILL 
;N0 - SKIP 
JDSC WAIT COUNT 
JEXIT IF WAIT DONE 



JCLEAR FOR RESPONSE 



;TEST IF RESPONSE YES 
?VES - REPORT 



;CH5Cf IF NOW STATE 1 
?YES - SKIP 



?SST WAIT FOR 30 SECONDS 
?SET EXPECTED STATE VALUE 
>GF.T STATUS 

?CHECK IF STATE 2 



;p.S_- SKIP 



HFCK IF NO CHANGE - YES - SKIP 



?DEC WAIT COUNT 
JSKIP !=• 



;TEST IF SPINDLE TIMEOUT 
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2526 
2527 
2528 



°4m 



104443 
000460 
ni3l54 

8i273^ 
001005 

104443 
000461 
013273 



hum 

013222 



006262 
*"t7- 



703 011172 



mm 

011105 

000010 002474 



000010 002474 



loss 
20 SS 



iiii 



0C0454 
016500 



000010 002474 



0127CC COOOOl 



013272 



27$: 
28$: 



30$: 



BNE 
MOV 
MOV 

ERRHRD 
TRAP 

• WORD 

EMT 

• WORD 
MOV 
MOV 
MOV 
BIT 
BNE 

FRPHRO 
TRAP 

• WORD 
.WORD 
EXIT 
FMT 
.WORD 
MOV 
JSP 
T365S 
BIT 
PEG 
DEC 
BEQ 
SAITMS 
MOV 
EMT 

BP 

ERRHPD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

JSP 

T365S 

BIT 

BNE 

DEC 

PEQ 

WAITMS 

MOV 

EMT 

Irphpd 

TRAP 

• WORD 
.WORD 
EXIT 



19$ 

'tSPDERR,EPHEAn 




ijMISTST^BRHEAD 
«STATE2,R4 
#MBHSTA/R3 
»PHSTAT,T.MP 



jt D./#ERR5 

T'JKPCODE 




#300., Rl 
PCGSTATC 

«PHSTAT,T.MP 

32$ 

Rl 

30$ 



#R0 
iol.#|.ERR5 



JYES - SKIP 

?SET ERROR HEADER 

;SET NAME MESSAGE POINTER 



?SET ERROR HEADER 
JSET CONDITION MESSAGE POINTER 
?SET NAME MESSAGE POINTER 
;TEST IF BRUSH HOME STILL SET 
JVES - SKIP 



;SET WAIT COUNT FOR 5 SECONDS 
?GET STATUS 

?TEST IF BRUSH HOME RESET 
>YES - SKIP 
;DEC WAIT COUNT 
?SKIP IF 7EP0 



?L00P 



?SET WATT COUNT 30 SECONDS 
?GET STATUS 

?TEST IF BRUSH HOME SET AGAIN 

?YES - SKIP 

JELSE DEC WAIT COUNT 

JSKTP IF 
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016500 
002502 



002434 32$: 



002434 36$: 



002474 39$: 



002466 40$: 



43$: 



EMT 

.WORD 

MOV 

MOV 

JSR 

T365$ 

CMP 

BEG 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

MOV 

MOV 

JSR 

T365$ 

BIT 

BNE 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

FMT 

.WORD 

BIT 

BNE 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

BIT 

PNE 

MOV 

ERPHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

MOV 

MOV 

JSR 

BEQ 



l*NSTACHG,ERHEAD 
t3,R3 
>C/GSTATC 




#MISTST/ERHEAO 
«STATE3#R4 
iMH0STA#R3 
PC/GSTATC 

«HOSTAT,T.MP 

lol.£tERR5 
T5EPCCDE 

TST 

CfiEXIT 

SfvSsiii/T.MP 
40S 

^MVOLCK^RS 




JSET EROOP HEADER 

;SET EXPECTED STATE VALUE 

?GST STATUS 

?CHEC«C IF STATE 3 
;YSS - SKIP 



JSET ERRO" HEADER 

?SET CONDITION MESSAGE POINTER 

;set name message pointer 
;gst status 

?TEST IF HEADS OUT SET 
?YES - SKIP 



?TEST IF VOLUME CHECK SET 
?SST NAME MESSAGE POINTER 



Lll 

IdRVERR/T.CS 

I^ErERR#R3 
311.£#ERR5 

TSERCODE 

eJr5 
TST 

C^EXIT 

ttNSTACHG^ERHEAD 

«f4,R3 

PC/GSTATC 

49§ 



?TEST IF DRIVE ERROR SET 
?YeS - SKIP 

;SET NAME MESSAGE POINTER 



;SET WAIT COUNT FOR 300 MS 
jSET ERROR HEADER 
?SET EXPECTED STATE VALUE 
>GET STATUS 



>CHSCK IF STATE 4 
;YES - SKIP 



ASSEMBLY ROUTINES WACYll 3nS(l'^52) 22-N0V-78 

C7.RLCR.P11 23-OCT-'7R MHP *TEST 3 



16:20 PAGE 2-7 
HEAn LOADING 



SEO 0087 



000001 



000 454 
000005 
C16500 

002502 



oeoool 




49S! 
50$: 



51$: 



55$ 
56$ 



002434 60S: 



DEC 
PEG 

WAITUS 
MOV 
FMT 
BR 

EPRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

MOV 

JSR 

T365$ 

CMP 

BEQ 

DEC 

PEQ 

WAITUS 

MOV 

EMT 

P.RRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

JSR 

T365$ 

BIT 

BNE 

DEC 

BEQ 

WAITUS 

MOV 

EMT 

BR 

MOV 

MOV 

MOV 

ERRHRD 
TRAP 
.WORD 
.WORD 



02470_ 
024702 



ENDTST 
L10022: 



C$WTU 

ill.,, ERR! 
T$ERCODE 

llh 

TST 

CSEXIT 

«5,R3 
PCGSTATC 

R3eT.STAT 

55S 
Rl 

IV 

#1,R0 
C$WTU 

l?i.#tERR7 

T$ERCDDE 
3i3 
EPR7 
TST 

C$EXIT 
L10022-. 

seo.tPi 

PC/GSTATC 
«DRDYMSK,T.CS 

»i,RO 
C$»ITU 
56$ 

«MlSTST,EPHEAn 

?iSTATE5<.R4 

liMDRDY£P3 

314|-tERR5 

T5ERC0DE 

314 

ERRS 



?OEC WAIT COUNT 
;SKIP IF 



J SET WAIT COUNT FOR 30 MS 
?SET EXPECTED STATE VALUE 
?GET STATUS 

;CHECfC IF STATE 5 
?YES - SKIP 
?OEC WAIT COUNT 
;ELSE SKIP 



;SET WAIT FOR 8 MS 
JGET ST«TUS 

KHECK IF DRIVE REAHY 
?VES - SKIP 
JDEC COUNT 
ySKIP IF 



?SET ERROR HEADER 

?SET CONDITION MESSAGE POINTER 

;SET NAME MESSAGE POINTER 



ASSEMBLY ROUTINES mACYH 30A(1052) 22-NOV-78 16:20 PAGE 2-8 

CZRLCB.Pll 23-0CT-7B 14:39 *TEST 4 HEAD UNLOADIN 



SEQ 0088 




§g8tsI 



8$: 



10$: 

BGNSUe 



06250 002434 
- 6446 
6464 

000001 002466 



1$: 



004066 

000010 002426 



10000$: 



3S: 
4$: 



HEAD UNLOADING 



TST PASNUM 

BNE 8$ 

TST MfsWIW 

BMI lOS 
EXIT TST 
EMT 
.WORD 



T4:: 



?TEST IF FIRST PASS 
?N0 - STIP 

;TEST IP MANUAL INTERVENTION 
JYES - SKIP 



mm. 



EMT 

MCV 

JSR 

JSP 

T465S 

BIT 

BNE 

PRINTF 

CLP 

BTSq 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CLR 

GMANIL 

EMT 

BP 

.WORD 
.WORD 
.WORD 
.WORD 

TST 

BEQ 

PTS 

PPINTF 

CLP 

BISR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 



C$BSUP 

#NSTACHG#ERHEAD ?SET ERROR HERDER 
PC,TSTINT 5INITIALIZE TEST 

PC,GSTATR ?GET STATUS 



JCHECK IF DRIVE READY 
JYES - SKIP 
OPR* ■ " 



iiDRDYMSK,T.CS 

3$ 

<iFMTOPl,»OPP6r«oNlA,»RASAD0,RLBAS^«DRVNAM,<B^RLDPV*l> 



RLDRV-l-l^(SP) 
tfrRVNAM,-(SP) 
RLRAS/-(SP) 
#PASADD,-(SP) 

SP^RO 

CSPNTF 

«20,SP 

OPUFF ;CLEAR "CR RESPONSE 

OPR002/OBUFF,1,NO 

CSGMAN 

iOgcc$ 

OPUFF 
T$CODE 
OPR00 2 



OPUFF 
1$ 



?TST RESPONSE YES 
JNO - SKIP 



#ULOAD,OPFLAG jSET UNLOAD OPERATION 

tfFMT0Pl,#0PR3/#DPPlA,»BASftDD,RLRAS/«DRVNAM,<B^RLDPV4.1> 

RLDPV+1,(SP) 
ttnRVNAM.-(SP) 
RLPAS,-CSP) 



nbPM o# — \ or I 
«PASADD,-(SP) 
<iOPRl»,-(SP) 

ff7/-(SP) 



ASSEMBLY ROUTINES M*CV11 30H1052) 22-Nqv-78 

CZRLCB.Pll 23-OCT-78 14:19 *TE§T 4 



002502 



16!2C PAGE 2-9 
HEAD UNLOADING 



SEO 0089 




'^OCOOS 002502 



000144 
OOOOOl 



004066 



000007 
00567Q 
016500 



8$l 



SP^RO 



UFF SCLEAR POP RESPONSE 

iPR0C3/ORUFF,l#Na 




;SET EXPECTED STATE VALUE 
?SET SECOND LEVEL COUNT 
;SET WAIT COUNT FOR 30 SECONDS 
?GET STATUS 

?CHECK IF STATE 6 

iTilT^lPsTATE 5 
?N0 - REPORT WRONG STATE 
JDEC 2ND LEVEL COUNT 
JSKIP IF NOT 

WW 



JELSE 
JWAIT 



#1 

#i,RO 

f I" 

402.i-£ERP7 

||ERCOOE 

ERR7 



;TEST IF RESPONSE YES 
JNO - Strip 

?ELSE REPORT STATE CHANGE WRONG 



?SET EXPECTED STATE VALUE 
?SET COUNT FOR 300MS 
JGET STATUS 



?CHECf IF STATE 7 
?YES - SKIP 
;DEC WAIT COUNT 
;StfTP IF 



JREPORT WRONG STATE CHANGE 



ASSEMBLY ROUTINES 
CZRLCB.Pll 23-OCT-78 



'Am' 



30A(1052) 22-NqV-78 
*TEST 4 



001130 
016S00 

002502 



OOOOOl 




004066 



24S: 
T465SJ 



ENDSUP 
L10024S 



EMT 

.WORD 

CLR 

MOV 

JSR 

T465S 

TST 

BEQ 

DEC 

BEO 

WAITMS 
MOV 
EMT 
BP 

ERRHRO 

JSoRD 
.WORD 

MOV 



PpiNTF 
CLR 
BISR 
MOV 

MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 



10000$: 

29Sf 

mm 



ADD 
CLP 



CL. 

GMANIL 
EMT 
BR 

.WORD 
.WORD 
.WORD 
.WORD 

TST 
BEQ 



:20 PAGE 2-10 
HEAD UNLOADING 

#600. ,R1 
PC/GSTATC 

T.STAT 
24$ 

n 

»1#R0 

So 

4ol.-,ERR7 

TSERCOOE 

ERR7 

«2/FRPSWI 



JSET EXPECTED STATE VALUE 
;SET WAIT COUNT FOR 60 SECONDS 
?GET STATUS 

;CHECsr TF STATE 
?VES - SKIP 
?DEC WAIT COUNT 
?SKIP IP 



JREPORT WRONG STATE CHANGE 



?INIT ERROR SWITCH 



C S E S U B 

»FMf0Pl/#0PR6,tt0PRlA,«BASftDn,RLBAS,«DRVNAM,<B,RLDRV*l> ;REQUEST CYCLE UP 
-(SP) 

--iv+ucsp)^ 



#BASADD,-(1 



SP.RO 



OBUFF 
OPR002,OBnFF 

OBUFF 
TSCODE 
pPP002 



OBUFF 
26S 



/1/n6 



CLEAR FDR RESPONSE 



?TEST RESPONSE YES 
MO - SKIP 



ASSEMBLY ROUTINES 
CZRLCB.Pll 23-0CT-78 



MICVU 304(1052) 22-N0V-78 
14:39 *TEST 5 



16:20 PAGE 2-11 
DRIVE SELECT 




010432 
010422 



onoel 

000005 



.SBTTL 
BGNTST 



000004 014656 



002540 



lOOOOS: 
3S: 



MOV 
TST 
BNE 
BIT 

BEQ 

PRINTF 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

FMT 

^PS 
CLR 

GMANIL 

EMT 

BR 

.WORD 
.WORD 

TST 

BEQ 

MOV 

JSR 

JSR 

T504S 

MOV 

MOV 

MOV 

ADD 

CMP 

BNE 

CLR 

MOV 

PPINTF 

MOV 

MOV 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



DRIVE SELECT 
JTEST05 



JSET FOR NO ERROR RETURN 
;TEST if FIRST PASS 
}nO - SKIP 

;TEST IF SELECT TESTS 
-NO - SKIP 



«2/ERRSWI 
PASNUM 
EXT05 

«DPSELT/MISWIW 

EXT05 

#FMT0Pl,#0PR7,#0^RlA,»BA§"ADD,RLBAS,#DRyNAM^<B,RLDRV-H> ^REQUEST REMOVE A 
-(SP) . 
RLDPV+l^CSP) 
tfpRVNAM^^JSP) 



ltPASADD,-(SP> 
ftOPRlA,-(SP) 
^0PR7£-(SP) 
FMTgPl#-(SP) 

«7,-(sp5 

SP^RO 
C$PNTF 

OPR002/OBOFF,l,Na 
CSGMAN 
lOOOCS 
OBUFF 
TSCODE 
OPR002 
1 



CLEAR FOR RESPONSE 



OBUFF 



iTi05ERR,ERHEAD 
PCTSTINT 
PC^GSTATC 

RLDRV/TEMPO 
RLDRV/Rl 
•■4*P4 

400, Rl 

2000/R1 

Ri 

R1,RLDRV 
«PMT0P3,#0P 

Mjndtst;-'" 
ftopRr* ' 



JTEST RESPONSE YES 
?N0 - SKIP 

JSET ERROR HEADER MESSAGE 
,D0 SELE?rUS*y?MSI^ 



OS 



t;-(Sp, 

OPRiR#-(SP) 

RLDRV+1,(SP) 
#OPRB,-(SP) 
«FMT0P3,-(SP) 



?STORE ORIGINAL DRIVE NUMBER 
?PUT IT IN Rl 

jSET COUNT FOR NUMBER OF PLUGS 
JBUHP TO NEXT DRIVE 
;CHECK IF TO LARGE 
;N0 - SKIP 

?ELSE CLEAR TO DRIVE 
JPUT IT BACK IN RLDRV 
fl#<B,RLDRV*l>,#OPRlB#«UNDTST 



SP,RO 

CSPNTF 

#14/SP 



yiNSERT PLUG REQUEST 



ASSEMBLY ROUTINES MACYll 
CZRLCB.Pll 23-0CT-78 14:39 



005037 
4043 




30A(1052) 22-NOV-78 
♦TEST 5 



16! 



004066 



004066 



002454 



lOOOlS 



002440 60$: 



ENDSUB 
Ll0026t 



J504$: 



1040'?! 



lOOOOS: 



EXT05: 
ENDTST 
L10025: 



EMT 
DEC 
BNE 
MOV 

PPINTF 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CLR 

GMANIL 

EMT 

BR 

.WORD 
.WORD 
.WORD 
.WORD 



TST 
BEQ 



20 PAGE 2-12 
DRIVE SELECT 



CLR 
GMANIL 
EMT 
BR 

.WORD 
.WORD 
.WORD 
.WORD 

TST 
BEQ 



EMT 
JSR 



OBUFF 

TSCODE 

OPR002 



OBUFF 
55 



CSBSUB 
PCGSTATC 

«2,ERPSWI 



CSESUB 
R4 

TEM??,R 



?TEST RESPONSE YES 
;N0 - SKIP 

T5.1: 

>GET STATUS - REPORT ANY ERROR 
;INIT ERROR SWITCH 



?DEC COUNT 

jLpgP IP NOT ZERO 

?ELSE RESTORE RLDRV 



#FMT1^#0PR8/#0PR9 
|0PP9,-(SP) 

OPUFF 



OPR002,OBUFF^1,n6 
CSGMAN 
lOOOOS 
OBUFF 
TSCODE 
OPR002 



ICLEAR FOR RESPONSE 



OPUFF 
4$ 



?TBST RESPONSE YES 
;N0 - SKIP 



) 



ASSEMBL 
CZRLCB 



Y ROUTINES 

23-0CT-78 



30«1053)„2|-llg»-78 



003062 
000004 




»fE§ 

.SBTTL 
BGMTSl 



20 P&G 

mivE 



014656 



002434 
000001 



ISS 
4$s 



2S: 



3SS 



002542 



7$S 
9SS 



20$f 



DRIVE SELECT TEST 
>TESf06 



Bit 

EMf 
.WORD 
MOV 
JSR 
MOV 
CMP 
BLOS 
INC 
CMP 

m' 

GPHARD 
IS? 

BNCOMPLE 
BCC 
MOV 
CMP 
BNE 
CLR 
MOV 
BIS 
MOV 
MOV 
MOV 

EMT 
TST 
BEQ 
BIT 
BEQ 

PRINTF 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 
JMP 
MOV 



PASNUM 

IftRSELT^MlSWIW 



jCHECK IF 
InQ - SKli 
--HECK IF 



JN-. 

fCHECK 
>YBS 



FIRST PASS 



. TEST DRIVE SELECT 
KIP 



I" 



NM/R3 

'-,n 



UNIT 



PI 
U 
51 

r3 

R|,L$UNIT 

ii 

R3,R0 

''Hi 



!l{ll7.E TEST 

nOm~— 



JSET ERROR^.^ 

?GET PArJm^SET NUMBER" 
JTEST IF MORE THAN I UNIT 

IbUMP PaJaMETBR SET NUMBER 
;CHECK IF PAST VALID PARAMETER TABLE 
?N0 - SKIP 

JELSE CLEAR TO POINT TO ENTRY O 



PHRD 



Rl 

dSne 



2S 

4?Jrlbas 



;SKIP IF MOT AVAILABLE 
?PUT POINTER INTO R4 

€ K...- -'•"flf^l 



CHECK illgAMl COMfrtOLLER 



|3,R0 
CSWT • 



>N0 - SfflP 
JCLEAR DONE FLAG 
JLOAD GET STATUS 
? INSERT DRIVE 



;LQAD DA REG 
JL0*D CS REG 
;MAIT 300 MS 



6(R4J#L.CS ? INSERT DRIVE 

iGETSfATIDRSETrL.DA jsIt UP TO CLEAR DRIVE 

L.DArRLDA(R2) ~~" 

|.CS#RLCS<R2) 



- -WTM 
DONE 

||nyerr,t.cs 

ipMT9«tOPR10 
|0PPl6/-(SP) 

CSPNTF 
«6,SP 



?TEST IF INTERRUPT 
J NO - StflP 

?TEST IF ANY ERROR SET 

JNO - GO TEST 

?ELSE CHECK NEXT DRIVE 

;REPORT CAN'T FIND 2ND DRIVE 



MOV 
mOV 
BIC 
BIC 
CMP 



mm 

mm 



;STORE NEW ADDRESS 
}kSK FOR PLUG CHANGE 
JGET DRIVE UNDER TEST 

f8Elg^foS''Sg§§iss TO 

jTEST IF DRIVE NUMBER 3 



ASSEMBLY ROUTINE 
CZRLCB. Pll 2! 

im mm 



S MACYll 
-OCT-78 14839 



000400 



153216 
012746 



i 



30A(1052) 22-N0V-78 
♦TEST 6 



16 



^716 002455 
!746 010244 

mm 

A mm 
mm 



05737 004066 
l27o4 0001)12 



21S1 



lOOOOSi 



m 
m 

MOV 

BISB 
MOV 
CLR 
BISB 
MOV 
MOV 
MOV 
MOV 
EMT 

m 

GMANIL 

EMT 

BR 

.MORD 
.WORD 

TST 
BEQ 
MOV 



120 PAGE 2-14 
DRIVE SELECT TEST 



21$ 
R5 
40 



SEQ 0094 



CRDYMSIf^R! 



;e£sb IIV . _ 

>RUMP TO NEKT 

?ELSE SET CONTROLLER READY BIT 



TO DRIVE NUMBER 
T ADDRESS 
TO NEW ADDRESS? 



r(uinaP/K3 , 

^RLCS(R2) MND LOAD CS REG 

HTgP2##0PRar<P,RLDRV*l>,#0PRlB/<B,TEMPl+l> 



-(SP, 
TEMPi*lr(SP) 
#0PR1B/-(SP) 
-fSP J 

RLDRV+1^(SP) 
#0PP8£-(SP) 
tPMT0P2#-(SP) 



CSPNTF 

SlufP^ JCLEAR FOR RESPONSE 

OPR0O2/OBUFF,1,n6 




oIrS?' 

OBUFF 
If. 



/R4 



?TEST IF RESPONSE YES 
JNO - SKIP 
?SET COUNT 



026572 



mi 



012700 000012 

552737 00010 4 
012737 000003 

\m\ m 

000001 

002430 
N737 016314 



i 

006316 



2456 
2462 
6004 



FMT 
MOV 
MOV 

WAITMS 

MOV 

EMT 

BIS 

MOV 

MOV 

CLR 

MOV 

WAITUS 

MOV 

EMT 

TST 

BNE 

JSR 

MOV 

BEQ 

ERRHRD 
TRAP 
.WORD 
.WORD 



CSBSUB 

RlDRV|-L.CS 

L.CS/RLCSR(R2) 

ll8wR0 
CSWTM 

#GTSTAT£L.CS 
#GETSTAT,L.DA 
L.DA,RLD]i(R2) 
DONE 

L.CS/RLCSR(R2) 

lls?f. 

DONE 
12S 

PC,WAITIN 
1P)*,R3 



III.. 
GSTERl 



?SET UP TO SELECT MULTIPLE DRIVES 
;D0 IT 



;SET GET STATUS 



GSTERl^ERRl 
ODE 



;D0 GET STATUS 
;WAIT FOR INTERRUPT 



?CHECK IF INTERRUPTED 
;YES - SKIP 
>WAIT FOR TIMEOUT 
>GET ERROR POINTER 
ISKIP IF 



ASSEMBLY. ROOTIN|S 



CZRLCB.Pll 



II Ik 

27 026 



In 

55) 
2834 



C7) 
<3) 

(3) 



6624 
6626 
6626 
6630 
6632 

6654 
6656 



?6664 
6666 

m 

?6674 



838 026712 

ill im 

(8) 026714 

(7) 026720 

|6) 026724 





0_- 
0267 



026734 
" "6740 
6744 



tit qIIII 

(3) 62676 



26754 
26""" 

W. 

5676'. 

6766 
6766 



■aCT-78 
013040 



104032 
000062 



mm 



-^102 
oillil 

im 
ill 

104003 

012746 
012746 



S62?J6 
005037 

104043 
000404 

mi 

000001 



5737 

1753 



30A(1052)^^2|-NgV-78 



000002 
016514 
0C0400 
011142 



000000 
00C002 



12s: 



010346 



000006 
004066 



60S! 

ENDSUB 

L10030: 



10000 S! 



LCLEXT! 



.WORD 

EXIT 

EMf 

.WORD 

WAITMS 

MOV 

EMT 

JSR 

PIT 
BNE 
NOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

DEC 

BNE 

MOV 



EMT 

PRINTF 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CLP 

GMANIL 

EMT 

BR 

.WORD 
.WORD 
.WORD 
.WORD 



TST 

BEQ 



20 PAG 
DRIVE - 



ERRl 

c"ixiT 

L10030-. 

IL po 

CfwTM 

pc;gstat 

ttDSESTAT/T.MP 

f6§ 

#MDSERR£R3 

60 2 

ERR3 

SflB 

R5,RLCS(R2) 

R4 

8$ 

#2#ERRSWI 

CSESUB 

«FMT9/#0PR11 

lOPRll^-(SP) 

CSPNTF 
|6,SP 

obOff 

opr002/obuff 

CfiGMAN 
16000s 
OBUFF 
TSCODE 
0PP002 
1 

GRUFF 
15S 



?wait for dse to set 
;get status 

JTEST IF DRIVE SELECT ERROR SET 
JYES - SKIP 

?SET NAME MESSAGE POINTER 



;L0AD in DIFFERENT 
;nEC COUNT 
?LOOP IF NOT ZERO 
;INIT ERROR SWITCH 



?REQUEST PLUG CHANGE 



#1/n6 



CLEAR FOR RESPONSE 



?TEST RESPONSE YES 
?N0 - SKIP 



ASSEMBLY ROUTINES 
CZRLCB.Pll 23-OCT-78 




30A(1052) 22-Ngv-78 
♦TEST 7 



16S20 PftGE 2-16 
INITIAL STATE 



.SBTTL 

BGNTST 



002434 



3S: 



7S: 
9St 



001000 



MOV 
JSP 

WAITUS 

MOV 

FMT 

JSR 

65$ 

BIT 

BNE 

MOV 

BR 

MOV 

CMP 

BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

BIT 

BNE 

MOV 

BR 

BIT 

BNE 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

TST 

BPL 

TST 

BNE 

BIT 

BEQ 

MOV 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMf 

.WORD 

BIT 



INITIAL 

;test 07 

#INITST,EPHEAD 
"C/TSTINT 



#10., PC 

CSWTO 

PC/GSTATC 

#PRDYMSfr,T.CS 
3< 

tMDRDY#R3 

R3, T.STAT 

?01.£,ERR7 

TSERCODE 

701 

ERR7 

TST 

C5EXIT 

rSPHi- 

«HOSf AT/Rl 
7§ 

|MH0STA,R3 
«PHSTAT/R1 

T|ERCDDE 

EPR3 
TST 

CfEXIT 
L10031-. 

MISWIW 
16S 

PASNUM 

inlsTAT/Rl 
13S 

<tMHSTA,R3 

«CCYLUP£R4 

703.##ERR4 

T|ERCODE 

EPR4 
TST 

#VCSTAT,R1 



ISET ERROR HEADER 

JINITIALIZE TEST 
?WAIT 1 MS 

JGBT STATUS 

JCHECK IF DRIVE READY 
JYES-SKIP 

ISET NAME MESSAGE POINTER 
?G0 REPORT 

?SET EXPECTED STATE VALUE 

;CHECfr IF STATE OK 
?YES-SKIP 

;ELSE REPORT STATE ERROR 



?EXIT 



?GET MP RFG 
;CHECK HEADS OUT 
JVES-SKIP 

?SET NAME MESSAGE PTR 
?G0 REPORT 

?check brush home set 
;yes-skip 

?set name message ptr 
?report error 



JEXIT 



?TEST IP MANUAL INTERVENTION RUN 

;no-skip 

?check if first pass 

;NO-SKIP 

JELSE CHECK HO SELECTED 
?YES-SKIP 

;SBT NAME MESSAGE PTR 
?SET CONDITION POINTER 
?REPORT ERROR 



?EXTT 

JCHECK VOL CHECK SET 



m 



) 



ASSEMBLY ROUTIN; 
CZRLCB.PU 2 



0CT«78 




|^C||l 30A(1052) 
011061 

040000 002466 15St 
011033 

16$i 



mm 



22-UQV-78 16|20 PAGE 2-17 
♦TEST 7 INITIAL STATE 

:S5oLCK/R3 

RVERR#T.CS 
MrERR#R3 
STAT^Rl 

LSTA#R3 



17$t 
lfl$S 



ENDfST 
L10031: 



.e,ERR2 
RCDDE 




,I.£#ERR6 
^||RCODE 



SEQ 0097 



. NAME MESSAGE PTR 
IRT 

■?E ERROR SET 



, NAME MESSAGE PTP 

>G0 REPORT 
|CHECr WRITE 

mil IIt NAME MESSAGE PTR 



LOCK STATUS 



;CLBAR 
jCHEgK 



STAUS EXCEPT FOR ERROR BITS 
IF ANY ERROR SET 



>Np-§KIP 
?ELSE REPORT ALL ERRORS 



?EXIT 



>GET CS REG 
JCLEAR ALL B . 
;TEST IF ANY ERROR SET 



BUT ERROR BITS 



;YES-SKIP TO REPORT 



CSETST 



ASSEMBLY ROUTINES 
C2RLCB.P11 23-0CT-78 




MACYll 
14:39 



30A<1052> 22-NQY- 
♦TEST 7 



006347 
016446 

016464 

014656 

003062 

000100 

mm um 

104443 



104001 



16S20 PAGE 2-18 
INITIAL STATE 



002434 



4S: 
65S 



MOV 
JSR 

JSR 
65$ 
TST 
BPL 
TST 
BNE 

m 

MOV 
MOV 

ERRHRD 
TRAP 
.WORD 
.WORD 



imi: 



INITIAL RESET STATE 
;TEST 8 



ttlNITST^ERHEAD 
PCrTSTINT 

PC,GSTATR 

MISWIW 



PASNUM 
4' 



||SSTAT,T.M 
#MHSTA.R3 

T<iERCODE 

801 

ERR4 



;IMITIALIZE TEST 

;GET STATUS WITH RESET 

jCHEgK^TF MAN INTERVENTION WAS RUN 

JChIcK if 1ST PASS 
>NO-SKIP 

?CHECir HD SELECT STILL 

jyes-skip 

iset name message ptr 
Met cond 



ASSEMBLY ROUTINES MftCVll 3CA(1052) 22-N0V-78 

CZRLCB.Pll 23-OCT-78 14:39 *TEST 6 



16:20 PAGE 2-19 

INITIAL RESET STATE 



027536 
-^7542 




17566 
7570 



006375 
002524 




m 

032737 

mil 

001404 

iim 

IQ4443 
001607 



•SBTTL 
RGNTST 



002466 



mm 



000001 



7$: 



MOV 
MOV 
CLR 
CLP 
CLR 
CLR 
JSR 
JSR 
65$ 
JSR 
MOV 
JSR 
65$ 
MOV 
MOV 
JSR 
65$ 
BIT 
BEQ 

ERRHPD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

JSR 

65S 

MOV 

CMP 

BEO 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

BIT 

BNE 

DEC 

BEO 

WAITUS 

MOV 

EMT 

Irrhro 

TRAP 
.WORD 



DRIVE READY 
JTEST 9 



h 

(P 

PC 
PC 



9ERR/ERHEAD 
WCYL^Rl 



tSTINT 
GSTATR 



PC/POSHSB 
R5,DESHD 
PC/SIMSEK 

«MDRDV,R3 
|CDPDV,R4 
PC/GSTAT 

»DRDYMSK,T 

9ll.£,ERR4 

TSERCODE 
901 
ERR4 
TST 

CfiEXIT 
L10C33-. 

pcJcStIt 

f!§?5T,R3 
7^ 

9l_ 

m 

ERR7 
TST 

#MDRDV,R3 
|ORPYMSK,T.CS 

Rl 
9S 



2./#ERR7 

"RCODE 



fi,RO 
5? 

T5ER66i 
903 



ERRS 



JSET ERROR HEADER 

;GET POINTER TO DESIRED LOC 

JCLEAR NEW CYL 

;CLEAR CURRENT CYL 

? DIFFERENCE 

} SIGN 

SINITIALIZE TEST 
?GET STATUS WITH RESET 

JPOSITION HEAD SELECTED BIT 
;STORE AS DESIRED HEAD 
JEXECOTE SIMPLE SEEK 

?SBT NAME MESSAGE PTR 
;SET CONDITION POINTER 
JRET STATUS 

STEST READY SET 
fND-SKIP 

jREPORf READY ERROR 



?EXIT 



;SET WAIT COUNT 
;GET STATUS 



yCHECK STATE IS 
;YES-SKIP 
?ELSE REPORT 



JCHECK READY SET 
?YES-SKIP 

;ELSE DEC WAIT COUNT 
JSKIP IF 



^REPORT READY ERROR 



ASSEMBLY ROUTINES 
CZRLCB.Pll 23-0CT-7a 




27624 
27630 

Am 

027642 
027646 

oPI". 

027654 
027656 

27662 

,27664 
027664 
027664 



002466 



011044 

D20530 
002534 



30A(1052) 22-NQV-78 

•TEST 9 

.WORD 
EXIT 
EMT 
.WORD 

12$: TST 
BPL 

ERRHRD 
TRAP 
.WORD 
.WORD 
EXIT 
EMT 
.WORD 
15$: MOV 
JSR 
CMP 
PEQ 
TST 
BEQ 

ERRHRD 
TRAP 
.WORD 
.WORD 

.WORD 
17$: ERRHPD 
TRAP 
.WORD 
.WORD 



16:20 PAGE 2-20 
DRIVE READY 



ERR5 
TST 

CSEXIT 
L10033-. 

T.CS 

9o|.*,ERR6 

t|ercode 

ERR6 
TST 

Lfio33-. 

#MHSTA#R3 

PC/POSfiSB 

r|,desho 

i?l.#,ERR3 

T5ERC0DE 

905 

ERR3 

JilxiT 

L10C33-. 

9Q6.£|.ERR2 

T$ERCODE 

906 

ERR2 



JTEST IF ANY ERROR 
?NO-SKIP 



?SET NAME MESSAGE PTR 
JPOSITION HEAD SELECT BIT FOR TEST 
jCHECff IF CORRECT HEAD SELECTED 



JYES-SKIP 
?ELSE TEST IF 1 DE 
?NO-REPORT SB 
;ELSE REPORT SB 1 



■■I 




30*<1052) 22-N0V-78 
*TEST 10 



16t20 PAGE 2-21 

"WIT 



SEEK SIGN SWITCH 



i 



002434 



mm 



002466 



7S! 



*TEST 10 



MOV 
MOV 
CtR 
CLR 
CLP 
BIS 
JSR 
MOV 



EMT 
JSR 
JSR 

%U 
%%\ 

MOV 

iff 

BEQ 

ERRHRO 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

• WORD 



MOV 
JSR 
60$ 
MOV 
CMP 
BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

BIT 

BNE 

iS 

WAITUS 

MOV 

EMT 



fllsT^i 



__„eYL;Ri 

I : 

R5,(R1)+ 



JJN SWITCH 

>SET ERROR HEADER 

yCLEAR NEW CYL 

?CLEAR CURRENT CYLINDER 
JCLEAR DIFFERENCE 
JSET FOR SIGN OF I 
JGET SELECTED HEAD 
JSET AS DESIRED HEAD 



TIOS J 



CSBSUB 

PC^TSTINT 

PC^GSTATR 

PCSIMSEK 

#MDRDY/R3 

IcdrdyJr4 

PC,GSTAT 

«drdymsk,t.cs 

fSoi.£#EPP4 

|||pc66e 

ERR4 

sne 



#81.,R1 
PCGSTAT 

tf5,R3 
R3/T.STAT 

llo2./,ERR7 

TSERCODE 

SUB 

CSEXIT 

iDRDYMSfC^T.CS 

Rl 
9l 



^INITIALIZE TEST 

fu" 



;get status 

?00 SEEIC 

;SET NAME MESSAGE PTR 

5 SET CONDITION MESSAGE PTR 

>GET STATUS 

JCHECK READY RESET 
?YES-SKIP 

?REPORT READY ERROR 



>EXIT SUBTEST 



JSET WAIT COUNT 
;GET STATUS 

;SET EXPECTED STATE 
iCHECir STATE IS 5 

;yES-SKlP 

^REPORT STATE ERROR 



?EXIT 

;SBT NAME MESSAGE PTR 

JCHECK READY SET 

>YES-SKIP 

;D0 wait COUNT 

JSKIP IF 



?Htu 



ASSEMBLY ROUTINES 
CZRLCB.Pll 23-OCT-78 

3033 030066 000747 



MACYll 
14839 



(5) 
3036 



30A(1052) 22-N0V-78 
♦TEST 10 



BR 



030074 

76 



i 
ii 



- - PP 

0J06 100005 

mm 

013342 

m 

mii ^^^^^^ 

S3OI6O 104443 



'48 032146 
149 030154 



5§ 
57 
^58 01 

m mm 



002466 



WWW 



m 



m 

104001 



002532 

mil 



16:20 PAGE 2-22 

SEEK SIGN SWITCH 



12S! 



15$l 



17$: 



ERRHRD 
TRAP 

• WORD 

• WORD 
EXIT 
EMT 
.WORD 
TST 

ERRHRD 

TwoId 

EMT 
.WORD 

CMP 

BEQ 



i \\\ 



ENpSUB 
Lie035l 



Lit 



EMT 
TST 
BEQ 
CLR 
JMP 



1003.,£ERR5 

j||§c66e 

ERR5 
SUB 

T.CS 

}p4.##ERR6 
|pc66E 

ERR6 
SUB 

mm.. 

R5fDESHD 



ERRHRD 
TRAP 

• WOl 

• WORI 
EXIT 
EMT 
.WORD 
ERRHRD 
TRAP 

• WORD 
.WORD 



8 m\ 



05.##ERR3 

Ircode 



SUB 

l|So35-. 

1006.#£ERR2 

T$ERC0DE 

I6C6 

ERR2 



CfESyp 
DfeSSGN 



DESSGN 
T104$ 



C$ETST 



?REPORT READY ERROR 



JTEST IF ANY OTHER ERROR 
JNO-SKIP 

JREPORT ALL ERRORS 



?EXIT 



>SET 



NAME MESSAGE PTR 
SELECTED HEAD BIT 



>GET SELECTED HEAI 
JCHECK IF CORRECT 
>YE§ -.SKIP 

Rf 



Sreport sp 



; REPORT Sn 



?CHECK if BOTH SIGN USED 
>YES-SKIP 

?SET FOR SIGN OF 
no TEST AGAIN 



ASSEMBLY ROUTINES 
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3062 
3063 



MJiCYll 305(1052) 22-N0V-78 16:20 PAGE 2-23 
14:39 *TEST 10 SEEK SIGN SWITCH 



SEQ 0103 



032737 
00 — 




.SBTTL 
BGNTST 



is: 



HEAD ALIGNMENT SUPPORT 

;test 11 



BIT 

BEQ 

TST 

6NE 

CMP 

BNE 

JMP 

EXIT 

EMT 

.WORD 

MOV 

PRINTF 
CLR 

MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

PRINTF 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTF 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



EMT 

JSR 

CLR 

MOV 

BIS 

MOV 

MOV 

MOV 

WAITMS 

MOV 

EMT 

TST 

BEQ 



#HDALTGN,MISWIW 
JlsNUM 

RLDRV/HADONE 
TST 

CSEXIT 

LI 

RI 



Til:: 

"MENT 



JCHECK IF RUN HEAD ALIGNME 
JNO-EXIT 
?TEST IF PASS 
?NO-EXIT 

;TEST IF HEAD ALIGN DONE THIS DRIVE 
J NO - SKIP 

JGO CHECK WRITE LOCK 



.SSJ^HApONE^ 



#PMT5##BASADD,RL 
rIISJ+I^CSP) 

#drvnam;-(sp) 

RLBAS,-(SP) 
»BASA0D,-(SP) 

SP#P0 
CSPNTF 

IpMfl/PAMESl 
C5PNTF 

«FMT<?#»HAMES2 
#HAMES2r-(SP) 

CSPNTF 

CSBSUB 

PC,TSTINT 

DONE 

RLDRV,L.CS 

#GTSTAT*L.CS 

«GETSTATIDRSET/L 

L.DA,RLDA(R2) 

L.CS/RLCSR(R2) 

#50wR0 
CSWTM 
DONE 
3$ 



JSET HEAD ALIGN DONE FLAG 
BAS,#DRVNAM/<B,RLDRV*1> 



?TYPE INSTRUCTIONS 



Tll.l: 



JINITIALIZE TEST 
JCLEAR DONE 

;SET UP FOR GET STATUS 
.DA 

JDQ GET STATUS 
?WAIT FOR INTERRUPT 



JCHBCK IF DONE 
JNO-GO CLR CONTROLLER 



ASSEMBLY ROUTI 
CZRLCB.Pll 




30A(1052) 22-NOV-78 
♦TEST 11 



16:2C PAGE 2-24 

HEAD ALIGNMENT SUPPORT 



104003 
104001 



mm 

002456 
QQ0004 
000000 



lOS: 
12$: 



59$: 

ENDSUB 
L10037: 

TllSS: 
BGNSOB 



19$: 



10000$: 

m 

ENpSUB 

L10040: 
20$: 

FNDTST 
L10036: 



MOV 
BIT 
BNE 
PIC 
MOV 
BIS 
MOV 
MOV 

WAITMS 
MOV 
EMT 
BR 



EMT 
JSR 
JSP 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 

EMT 

GMANIL 

EMT 

BR 

.WORD 
.WORD 
.WORD 
.WORD 

TST 
BEQ 



tHDSELlMBSETC/L.DAJLOAD FOR HEAD 1 

fWLSTAT/T.NP "f—— — -~ 

12S 

■■■1SEL#L.DA 



#HDSEL#L.D/ 
RLDRV/L.CS 
#SEEK,L.CS 

l.da,rlda(r2) 
l.cs;rlcsr<r2) 

SiSr^Ro 

C5WTM 
3$ 



ifl/UUAU rUK MK,AU i 

, CHECK IF WRITE LOCK SET 
?YE S-SKIP 

JELSE CLEAR TO HEAD 
;L0AD in DRIVE NUMBER 
?SET FOR SEEK 
;LOAD & EXECUTE SEEK 

;WAIT FOP INTERRUPT 



;LOOP 



C$BSUB 
PC/TSTINT 
PC,GSTATR 

#WLSTAT#T.MP 

#fIt9£#0PR12 

CSPNTF 
»6,SP 
OBUFF 
OpR002/OBUFF,1,N 
CSGMAN 

TSCODE 
OPR002 

OBUFF 
18$ 



CSESUB 
CSETST 



Til. 2: 



JINITIALIZE TEST 
?CLEAR DRIVE 

;CHECK WRITE LOCK RESET 
?¥ES-SKIP 

yPEQUEST WRITE LOCK RESET 



jCLEAR for RESPONSE 
JGET RESPONSE 



;WAS ANSWER YES 

JNO-REPEAT REQUEST 



ASSEMBLY ROUTINES 
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MACYll 30H(10«;2) 22-N0V-78 16:20 PAGE 2-25 

14:39 *TBST 11 HEAD ALIGNMENT SUPPORT 




1404 
012700 



006425 
002524 



COOOOl 

mm 

017346 

iim 

000001 



mm 

OO0005 
002502 



mm 



OOPOOl 



.SBTTL 
BGNTST 



0D2466 



002466 



7S: 



♦TEST 12 HEAD SWITCHING 

^TEST 12 ^^2.. 
T12ERR,ERHEAD jSET ERROR HEADER 
NEWCYL,R1 ;GET POINTER TO DESIRED LOCATION 

?CLEAR NEW CYLINDER 
?CLEAR CURRENT CYL. 
JCLEAR DIFFERENCE 
;CLEAR SIGN 
?SET FOR HEAD 1 



MOV 
MOV 

CLR M)* 



CLR 
MOV 



(Rl) 

nA 



EMT 
JSR 

^1 

MOV 
JSR 

l?l 

BEO 

ERRHPD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 
JSR 
60$ 
MOV 
CMP 
BEQ 

Irrhrd 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

BIT 

BNE 

DEC 

BEQ 

WAITUS 

MOV 



CSBSUB 

PC^SIMSEK 

ffMDRDV^RS 
ICDRDY.R4 
PCCSTAT 

|DRDYMSK#T.CS 

1101. |.£ERR4 

j||rc66e 

ERP4 
SI'B 

IcJgStat 

#5/R3 
R3, T.STAT 

1102. #,ERR7 

TSERCODE 



Lfo042-. 

#MDRDY/.R3 
iORPVMSKrT.CS 



T12.1S 



TEST 
RESET 



IINITIALIZ 
JGET STATUS WITH R 

?00 SEEK 

?SET NAME MESSAGE PTR 
?SBT CONDITION POINTER 
;GET STATUS 

JCHECK IF READY 
JNO-SKIP 

JREPORT READY ERROR 



?EX1T 



;SET WAIT COUNT 
?GBT STATUS 

?SET EXPECTED STATE VALUE 
?CHECIC IF STATE IS 5 

;yes-skip 

;REPORT STATE ERROR 



?SET NAME MESSAGE PTR 

SCHECK DRIVE READY 

)YES-S(CIP 

JDEC WAIT COUNT 

?SKIP IP 



ASSEMBLY ROUTINES MACYll 
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30A(1052) 22-N0V-78 
*TEST 12 



16:20 PAGE 2-26 
HEAD SWITCHING 




9$: 



25SS 

imi. 



1st 

BEQ 



C|WTU 



ERRHPP 
TRAP 
.WORD 
.WORD 
EXIT 
EMT 
.WORD 

12$: |ST 

ERRHRD 
TRAP 

:8m 

EXIT 

EMT 

.WORD 

CMP 

II? 

BEQ 

ERPHRD 
TRAP 
.WORD 
.WORD 

EV 

.WORD 
17S: ERRHRD 
TRAP 
.WORD 
.WORD 

?Sli 

ENDSUB 
L10042: 



'03.#tERR5 
ERCODE 



1.0. 

ERR5 
SUB 

cr 



^•#£ER 

RCODE 



El 

SUB 

Mill: 



SUB 

- 

#MR§TX,R3 
PC,POSHSB 
DESHD,R5 

EHhd 



ERRS 



17$ 

120b. ££i;, 

t||rcode 

ERR3 
SUB 

C|EXIT 
12^^'£IeRR2 

j||rc66e 

ERR2 



CSESUB 

DESHD 

25$ 

'rim 



?REPORT READY ERROR 
JEXTT 



?REPORT ALL ERRORS 



JSET NAME MESSAGE PTR 
^POSITION HEAD SELECT BIT 
JCHECK IF CORRECT HEAD SELECTED 
?YE S-SKIP 

JWAS HEAD SELECTED 
?YE S-SKIP 
?REPORT HEAD SB 1 



?EXIT 

JELSE REPORT HEAD S8 



?CHECK IF HD WAS DONE 
) YE S-SKIP 

& fill" ' 



ASSEMBLY ROUTINES MACYll 30A(1052) 22-N0V-78 16:20 PAGE 2-27 

CZRLCB.PU 23-OCT-7B 14'.39 *TEST 12 HEAD SWITCHING 




3233 
3234 



000001 
002474 

100177 
100177 
002540 



lOSi 



002534 
002540 

002540 
002474 
002474 



20$; 



READ HEADER (PART 1) 
?TEST 13 



T134$: 
BGNSOB 



MOV 
MOV 
CLR 
CLP 
CLR 
CLR 
CLP 



EMT 
JSR 
JSR 

60$ 
MOV 
JSP 
60S 

ill 

JSR 
CMP 

IIrhrd 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

ERRHRD 

TRAP 

.WORD 

.WORD 



EMT 

TST 

BNE 

MOV 

MOV 

BR 

BIC 

BIC 

CMP 



T13ERR,ERHEA0 
NEWCVL,R1 



T13: 



CSBSUR 

PC,TSTINT 

PC,GSTATR 

PC/SIMSEK 

IBl.irRl 

PCRDYWAIT 

PC/XRDHDC 

#MHSTA#R3 
PCPOSHWl 



ERR3 



RSfDESHO 

nil. 

TSERC 



ERR3 
SUB 
CS' 

i362.";#ERR2 
T$ERCODE 
1^02 
ERR2 



P5-. 



CSESUB 
DfeSHD 
2^$, 



;SET ERROR HEADER 
;GET ADDRESS OF DESIRED LOCATIONS 
;CLEAR NEW CYL 
yCLEAR CURRENT CYL 
JCLEAR OIFF 
--*^EAR SIGN 
EAR HEAD 



) 



JCL 

?CL! 
;CLI 



T13.1: 



UNITIALIZE TEST 
JGET STATUS W/RESET 

JDO SEEff 

;SET WAIT COUNT 
JWAIT FOR READY 



JDO READ HEADER 

>SET NAME MESSAGE PTR 
JPOSITION HS BIT IN HD WRD I 
ICHECK IF HEAD CORRECT 
;YES-SKIP 
;REPORT SB 1 



;REPORT SB 



?TEST if HEAD 1 DONE 
?YES-SKIP 

?ELSE SET TO HEAD 1 
JSTORE HDR WORD 1 
>D0 TEST AGAIN 
— EAR ALL BU" 



#1,DESHD 
HDWRDl/ TEMPO 

P?hIcYL, TEMPO _ - - _ 

#-CHDCYL,HDWR01 ?CLEAR ALL BY CYL IN 2ND HEADER 
TFMPO/HDWRDl ?C0MPARE IF EQUAL 



JCLEA 



T CYLINDER IN 1ST HEADER 



ASSEMBLY 
CZRLCB.Pl 

im s 

3237 



ROUT! 
1 

mii 

3i3r- 



NES MACYll 
23-OCT-78 14:39 




mm 

013040 
104001 



30A(1052) 22-N0V-7fl 
*TEST 13 



007503 



16:20 PAGE 2-28 

READ HEADER (PART 1) 



MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 



22S 

fCYLPER£R3 
1306.#£ERR1 

iIepcode 

1306 
ERRl 



?yes-skip 

JSET NAME message PTR 

^REPORT HEAD ALIGNMENT PROBLEM 



) 



ASSEMBLY ROUTINES MACYll 30A(1052) 22-NgV-78 16*20 ^PAGE 2-29 

CZRLCB.Pll 23-aCT-78 14S39 ♦TEST 14 PEAD HEADER (PART 2) 

•SBIXL *TEST 14 READ HEADER (PART 

BeNTSf >TEST 14 




mm — m mmr^^ mMlimr-^ 



Tl53$: 

BGNSOB 



ESIRED DIPF 



T14.1: 

016446 3'SR PC^fSflNT lINITIALIZE TEST 



CSBSUB 

__. PC^TSTINT ll 

016464 JSR PC/GSTATR JCLEAR DRIVE 



017346 JSR PC/SIMSEK ?D0 SEEK 

60S 

000310 MOV #200. ,R1 ?SET WAIT COUNT FOR 20 MS 

020560 gSR PCRDYWAIT ?ilAIT FOR READY 

021154 Jsl PCRDALHD ;D0 READ HEADER ALL HEADERS 



002436 dll MORECE ?CLEAR MORE COMPARE ERRORS FOR REPORT 

000002 002426 BJS pBSCMP^OPFLAG JSET HDR COMPARE FLAG 

CLR R3 JCLEAR FOR HDR COUNT 

003466 MOV »IBUFF,R4 ?GET POINTER FOR HDR TO BE CHECKED 

mm US! hmi"^ lii? sg^m?" 

MOV (R4i#(R5) 3GET FIRST HEADER WORD 

100100 BIC #BITl5fHDHSELr(R5)lCLBAR BIT 15 AND HEAD SEL BIT 

002534 TST pESHD ?TEST IF HD DESIRED 

BEQ 10$ ;YES-SKIP 

BIS #HDHSEL,(R5) JELSE SET HEAD BIT 

CLR 21B§' ?CLEAR 2N0 WORD OF TEST AREA 

lOSi CMP (R5)/(R4)4- ;COMPARE HEADER WORD 

BEQ 13$ ?SKIP IP OK 

TST -(R4) JELSE POSITION R4 TO BAD WORD 

|RRpRD ||||555P'^io ;report error 

.WORD If^of 

WORD ERRlO 

fST (R4)4. >BUMP R4 TO NEXT WORD 

13$: INC R3 >BUMP WORD COUNT 

TST (R4)* JTEST 2ND WORD IS 

i50l.;,ERR: 



mm 



MP (RS)*/-(R4) ;P0SITI0N PTRS FOR REPORT 

RRHRD i50l.#,ERR10 JREPORT ERROR 
H*E- T|E|C0DE 

Irrio 



.WORD 
• WORD 



. ERRIQ 

CMP -(R5),(R4)+ JREPOSITION POINTER 

TST <B4)+ JPOSITION R4 PAST ECC WORD 

INC R3 ?BUMP WORD COUNT 

INC (R5) ;BUMP SECTOR COUNT 

MOV (R5),R0 yCHECir IF SECTOR IS PAST LAST SECTOR 



ASSEMBLY ROUTIN 
CZRLCB.Pll 2 




104001 



30A(1052) 22«NOV-7a 
*TEST 14 

BIC 
CMP 
BNE 
BIC 
DEC 
BNE 



002534 

000001 
031414 



17$s 



mhf 

L10045! 



EMT 
TST 

m 

JMP 



16:20 PAGE 2-30 

PEAD HEADER (PART 2) 



#"CHDSBCrRO 
|40.^r8 

|HDSEC,(R5) 

lis 



CSESUB 
5|SHD 

#1/DESHD 
T153S 



JNO-SKIP 

?ELSE CLEAR SECTOR TO 
?0EC HDR COUNT 
?YES-SKIP 



JCHECK^IF HD 1 TESTED 

IIlSE set to HEAD 1 
>REno TEST 



ASSEMBLY ROUTINES HACYll 30 &( 1052 ) 22-N0V-78 16:20 PAGE 3 

CZRLCR.PT2 22-NOV-78 16:19 *TEST 14 READ HEAOER (PART 2> 



CZRLCR.PT2 22-NOV-78 

3306 031646 BGNMOD HRDPPM 

3307 Olllil BGNHRD 



1 



Ssil P31772 

m\ uwi """" 

t 



46 BGNHRD 

46 000025 .WORD L10C47-LSHARD/2 



CNTYPE/CNt£i£YES 
.WORD TSCODE 



4 .WORD CNTYPE 



3^^ MlMl '^'""^^ GPRMA CSrEsG/CSr.0^160000, 177776, YES 

.WORD T$COdE 



4) 031656 



1 mm mi -.segg 



WORD CSRMSg.. 

776, YES 



1 mm mm -^u w 

4) 031674 000776 -WORD T|HIL 

nl 9lil76 GPPMD BRMSG,PRI6R£0, 

(4i 031702 000340 -WORD 340 

4) 031704 000000 .WORD TSLOLIM 

4) 031706 O00007 .WORD TSHlCiM^^ „ „ 

12 031710 GPRMD DRMSG#DRSB, 0,3400,0, 7, YES 

J mil Imh 'X ?ie8lih 

Ml 031720 000007 -WORD T?HILIM 



031722 EMDHRD 
031722 L10047; 



CSRMSG: .ASCIIs /bus ADDRESS/ 



nm mm mm mm , 

3317 031736 042526 052103 051117 VECMSG: .ASCIZ /VECTOR/ 

3318 pil^S |o2 32JJ?5 042514 BRHSG: .ASCIZ /PR LEVEL/ 

351? mil Im ""lit ?8¥fpL -Aim. '^tay 

031712 



BGMMOO SFTPRM 

WORD L10050-LSSOFT/2 



S774 GPRML SELQ,MISW 

Hi mm :588^ 1 

000 000004 .WORD 4 



SEl.Q£MlsWIg4gVES 



:lo 



33 032002 GPRML ALGNQ,MISWI,10,VES 

i] Imi nun :!!8S8 I?S§8' 



ASSEMBLY ROUTINES 
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MACYll 
16:19 



30A(1052) 22-N0V-78 
*TEST 14 



16:20 PAGE 3-1 

READ HEADER (PART 2) 



3.. 
3348 

\^ 
335I 



Ml mm 

32014 100000 

iii 

i" 



•WUKU AU 

MANQ,MISWI, 100000, YES 
.WORD TSCODE 
.WORD MANQ 



032022 
032024 



032030 

32036 
032036 



mm 

000130 

mm 



.WORD 

GPRMD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



100000 

|RLIM0,ERLIM,D,377, 0,377, YES 

TSCODE 
ERLIMQ 
377 
TSLL 
TSHI 



TSLOLIM 

TSHILIM 

AUTOQ,MISWI,20,YES 
.WORD TSCODE 



032 

3361 032 



li fill imi 



ENOSFT 
L 10050: 
selq: 



.EVEN 
.ASCIZ 



/EXECUTE DRIVE SELECT TESTS/ 



032112 
032120 



3363 



3371 



3378 



383 
384 
385 
386 



032136 
032144 



mm 



°" pi 
mm 
mm 

wm 
m 

052123 
05 



052 

O42IS0 

mi 
ulnt 

041505 
040515 
044440 

111 



052503 ALGNQ: 



.ASCIZ /EXECUTE HEAD ALIGNMENT SUPPORT/ 



ill 

iiii ii ii i\m 



052125 manq: 
^52516 



III 



mil 



--mi 



miii llim 



032240 
032246 



050117 



1C5 



051516 



) 



.ASCIZ /EXECUTE MANUAL INTERVENTION TESTS/ 
.ASCIZ /SPECIFY ERROR LIMIT/ 

?Q4g autoq: .asciz /drop drive if no response/ 

.EVEN 

ENDMOD 
.=32514 

;AREA RESERVED AS PATCH AREA FOR DIAGNOSTICS, 



) 
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CZRLCB.PT2 22-M0V-73 16:19 *TEST lA READ HEADER (PART 2) 

3387 
3369 

i\tl 032514 L4STAD 

(2) .EVEN 

(3) 032514 L$LAST:: 



ASSEMBLY ROUTINES MACYll 30A(1052) 22-N0V-78 16:20 PAGE 4 

CZRLCB.SUP 23-OCT-78 09:52 DIAGNOSTIC SUPERVISOR — LOW COPE SET UP 

.SBTTL DIAGNOSTIC SUPERVISOR — LOW CORE SET UP 
063310 000000 .WORD ?SPACE FOR USER POOL POINTER 

"'3312 '>0530fi .WORD ;siZE 

3314 OyOygo .word o ;checksum (not currently used) 

3316 QOOOOO .word ?SIZE OF H.W. PTAB. ALLOCATION 

063322 END.SUPV=.*2 




14276 A -i 

J278 00^2?? .END' 200 
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CZRLCB. SUP 23-OCT-78 CQ;S2 SYMBOL TABLE 



03304C G 

mm " 



mi 

00020 



0057 40 
005622 
0X1643 
032514 
0000 " 

8o66oi 



mi 

00002 



OSlO 

m 



CALLTC= 
CAL.CC 



mi 



0327 



033012 

mm 

022746 
040036 

mm 
ill 



61672 

mm 



CSNAM 

cIrmsg" 

CORCYL 

caRR.s 

mil 

CYLTPL 
CYLUP = 
CYLWD 
CSAAD 
Cf AAE 
Cf AAK 

c|aal 

CSAPR = 
CfAU = 
CSBRK = 

CfBSUB= 
CSBUFFs 
CSCEFn= 
C$CLEA= 
C|CLP1= 

C'§DCLN = 



Jilo 

iill 




M 

DCLIM 
DCLIMW 
DECMSG 
DESDIF 
DESHD 
DESSEC 
DESSGN 
DEV. CO 
DIAGMC 
DIAG.T 
DIFAUG 
DIFViD 
DIRBIT 
DIRMSK: 
LTERR 



-,0012 
014670 

mm 

002532 
032526 

mm 

000004 
077600 

im 

62456 
'344 




mm 

000400 

im 
M 

46764 




ERLIMQ 
ERLIMW 
ERRCNT 
ERRFOR 
ERRHAN 
ERRPOI 
ERRSWI 
ERRVEC 
ERR.HF 



002440 
002652 
046052 



ASSEMBLY ROUTINES 
CZRLCB. SUP 23-OCT-7fl 

BRR.NU 032516 G 
BRR.SP 046056 
ERRl 013040 



m 

fmt: 
fmt: 

FMT 
FMT. 

fwt: 

FMT 
FHT. 

fmt; 



FMT- 
FMT20 
FMT21 
FMT22 
FMT23 

mt 

FMT26 
FMT27 
FMT2fl 




013154 G 
013222 G 

mil I 

014270 G 

mm ' 

032520 G 

9Q2646 

902644 

002642 

002650 

mm g 

032562 G 



MA 03 



MACYU 30A(1052) 22-NOV-78 16:20 
09:52 SYMBOL TABLE 



GSLOLI= 
GSNO = 
GSOFFSs 

g|ofsi= 

G|PRM8= 

g|prmd= 

GfPRML= 

g|rad»= 
g|radb= 

GSRADDs: 
G§RADF= 
G§RADL= 

g|rado= 
g|radt= 

GSXFER= 
GSYES r 
HADONE 
HAMESl 
HAMES2 




|S0. 
fSRV = 
fSUB = 
4SH = 
$TEST= 
«ARBAG 
GETCHR 
GETCNN 
GSTPAR 
GETPOS 
GETSTA= 
GETSWI 
GET.TW 
GLBOAT 
GLBEQA 
GLBERR 
GLBSUB 
GLBTXT 
GSTAT 
GSTATC 
GSTATG 
GSTATR 
GSTERl 
GTSTAT 



GSEXCPs 
G^HILTs 



Mm 

002122 G 

mm I 

016056 G 
004744 G 

mm 

016524 
000104 



000001 
000000 

060001 

0C0002 



HCORED 
HCOREQ 



000004 

mil 

007567 
007652 

hm 

037166 

L mm 



000010 

m 
m 



HPTCOD 
HRDPRM 
HRDWTS 



nnti 

2624 
-,2626 

-OOlOC 
032S50 
056606 



HOLDSPs 
HOSTATr 




LPT. RE 



LfDEPO 
LSDESC 



LSLADP 
LSLAST 
LSMREV 



02072 G 

um g 

16052 G 
02076 G 
22*14 G 
02056 G 
02034 G 

mi e 

Q2046 G 
31650 G 
02016 G 
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CZRLCB. SUP 23-OCf-78 '^9:52 SYMBOL TABLE 




H mm 

^^15 016050 
6616 016054 

!i8i! mm 

3446 

mi 




B32 057364 

■ mn 

030166 
030640 

mm 

m 

031304 



l1o046 



\n\l 
Mil 



m 



MPEAOH 
WRESKP 
MREVSK 



OOOOIO 

III 

055772 

mn 

QOOOOO 

006250 



NUM. LA 

NUM. NO 

NUM. UN 

NUNITS 

NXMERR= 

NXTFOR 

NXTPAS 

8?TMSG 

OPIN 

OFINU 

OFMID 

OFMfDU 

8f3uIu 

OLDCYL 
OPFLAG 



F4p 

OPR004 
OPRl 



000001 

mm 

000000 
051474 



PATTBL 

PATl 

PITIO 

PAT2 

PAT3 

PAT4 

PATS 

PAT6 

PAT7 

PAt8 

lllk 

PRINTF 

iff i 

PRI02 = 
PRI03 = 
PRig4 = 
PRI05 = 
PRID6 = 
PRI07 = 



00II3 



mm 

003064 
033000 

003072 

mm 



ASSEMBLY ROUTINES ^ACYll 30A(1052> 22-N0V-7a 16:20 

CZRLCB, SUP 23-0CT-78 09:52 SYMBOL TAPLE 

iiisSes mm im^f 



mil 

P2T14E 



mm 

006771 



602 



BGSAV 

iLDMT= 

BQN.P 



RESPAR 
RESTAR 
RBSTBL 
REVSKO= 

imr 

RLBA = 
RLBAS 

mh : 

RLDA = 

RLDRV 

RLMP = 

RLVEC 

RORWOP= 

RPTOP 

RPTREM 

RPTRES 

RSTACK 

RSTRT 

mnoi 

SBSFIL 

SEARCH 

SECWD 

SEEK = 

SEEKOPs 

SEGSTA 



. ABS. 063320 



Hill 



is 

STOSTA= 
STRCHR 
STRT.T 
ST. SET 
SfJfiSTPr 
SUNIT. 
SUPERV 
SUPFLA 
SUP?.T 
SUP. PR 

mm 

SVCHAN 

SVCINS= 

SVCSUBs 

SVCf AG= 

SVCTST= 

SWCHAN 

S'^ITCH 

SW.ADR 

SW.PTA 

SYS. FT 

SSLSYM= 

TRLSTR 



TEHP3 



000 



§LOLI= 



m 



177777 



5DU = 
§HAP= 
SHW = 



T59ERR 



t4ERR 

hi 

16ERR 

25TBL 



27666 



UNIT.D 
"NI.MA 




000 
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CZRLCB.SIfP 23-OCT-7B -Q;S2 SYMBOL TABLE 

ERRORS detected: D 

DSKZ!CZRLCB,0SKZ:C7RLCB/EO:P4Rtl=CZRLCB/ML,CZPLCB.PTl,CZRLCB.PU/CZPLCB.PT2^CZRLCB.S!IP 
run-time: 50 49 1 SECONDS 



run-time: 50 49 1 SECONDS 
RUN-TIME RATIO,: 177/161=1.7 
CORE used: 16K (31 PAGES) 



